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Nem s6 de pSo vive o ho mem: de elo- 
gios tambSm. Atrav^s de nossos corres- 
pondentes e viagens de amigos, varios 
exemplares de MICROHOBB Y ja estao cir- 
culando pe/os Estados Unidos e pels Euro- 
pa. Isto sem contar aSguns assinantes no ex 
lerior: poucos, mm motive de muito orgti- 
lho\ 

Pais bem, 4 incn'vel a reagSo quase una- 
nime de espanto do pessoat H de fora ao 
ver a qualidade grafica e editorial da nossa 
re vista (quando dizemos no»a, voce esta 
incluido I /. 

Isso nos envaidece muito e queremos 
compartilhar com voce este seritimento de 
orgulho. 

Para o aprimoramento desta qualidade 
contribuiram de maneira significativa as 
inumeras cartas contendo preciosas suges- 
tdes e criticas, e as colaboragoes de alti's- 
simo nivel de muitos leitores. 

Atrav^s destas cartas, por exempio, sen- 
timos a necessidade de abrir mais uma se- 
(So: POR DENTRO DO APPLE. Muiti's- 
simos leitores tSm um TK em casa, mas 
na fi'rma tern acesso a um UN IT RON, um 
MICROENGENHO, um MAXXI, etc.. to- 
dos compativeis com o APPLE e gostariam 
de receber algumas dicas referentes a estes 
outros computadores. 

Outros leitores, pensando talvez numa 
prafissionalizat^So do HOBBY aprendido 
com o TK, nos solicitaram informaqSes a 
respeito de computadores de maior porte. 
Isto nos motivou, inclusive, a pensar em 
abrir uma sepao irmSa do APPLE dedicada 
aos computadores compativeis com o 
TRS80. 

Tudo isso, obviamente, representari at- 
go mais para o usuirio do TK a quern dedi- 
camos nossa revista, nSo implicando de for- 
ma alguma em perda de qualidade do ma- 
terial que ele recebe para seu pequeno gran- 
de computador, 

Por isso, pedimos: continuem escreven- 
do criticando, cobrando, colaborando, su- 
gerindo, ou at4 apenas elogiando: afinal 
nem so de pao vive o borne m. . . 
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CARTA DOS 
LEITORES 
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Prezados Sen ho res, 

Em primeiro lugar quero parabenizar a MICROMEGA 
pela excelente publicapao mensaf da MICROHOBBY, 
pois 6 uma revista que atende aos anseios de todos os 
usu^rios do TK, destacando-se os programas in^ditos, as 
dicas e as novidades. 

Tenho algumas sugestoes que acredito melhorariam 
atnda mais o ni'vel da revista, que sao: poderia ser criada 
uma segao para solucionar as duvidas dos usu^rios do 
TK, tanto em software como em hardware; gostaria que 
fosse publicado um programa que informasseao usu^rio 
quanto de mem6ria ainda resta durante a digitagao de 
um programa extenso, este programa poderia ser uma 
sub-rotina do programa principal, ao qua! o usu^rio re- 
correria sempre que achasse necess^rio. 

Desde jd agrade{po a atengao dispensada, 

Si/vio Roberto Hantschef 

Prezado Silvio, 

Uma de suas sugestoes ji foi atendida: aconselhamos 
a leitura do MAP A DA RAM do TK na segao de Dicas e 
da an^lise da FITA DO MES. 

Prezados Senhores, 

Estou enviando anexo a esta, um programa com os 
comentdrios, para participar da se^ao "Quebra-cabecpa". 

Aproveito a oportunidade para solicttar alguns escla- 
recimentos, . . Os programas que recebi na fita-brinde 
necessitam que o computador funcione em "SLOW". 
Meu computador (NEZ8000I so funciona em FAST. Na 
revista nP 0, pag, 6 foi anunciado que na revista nP 1 se- 
ria publicado artigo mostrando como acrescentar a fun- 
9ao "SLOW" ao computador. Porque nao foi publicado? 
Voces nao podem enviar instrugoes para eu fazer a mo- 
dificapao? Agradego resposta, despe?o-me. Atenciosa- 
mente. 

Hermelindo Pinheiro Manoel 

Prezado Hermelindo, 

Seu programa e comentirios estao dtimos. fnfeliz- 
mente ainda nao foi para esta vez sua pubtica^ao. Conti- 
nue, enviando respostas pois o nfvel desta ultima estava 
muito boa. 

Com rela^ao ao SLOW no NBZ8000 sugerimos uma 



I Ida na segao PEQUENOS ANUNCIOS: o WILSON DE 
ASS IS pods Ihe fazer esta adapta(^So ou o JAN MAR- 
TIN L UNO pode Itie fornecer o esquema. 



Prezados Senhores, 

Assinante que sou de MICROHOBBY, no final deju- 
Iho (28) recebi satisfeito, a fita brtnde prometida naas- 
sinatura. 

Achei interessante o jogo da "Pulga", entretanto, por 
mais que tentasse em todos os volumes, nao consegui ro- 
dar "Simutador". Seguramente nao esti boa a fita. 

Dois ou tres dias ap6s foi-me entregue pelo Correio, o 
nO 2 da revista (excelente) e nele verif iquei a op^ao per- 
mitida aos novos assinantes; o desgravador Twin Go. Li 
tambem a informa^;§o de que o cassete estaria gravado 
dos dois lados, o que tambem nao ocorre com o meu co- 
mo poderao constatar. 

Em razao do acima exposto remeto-vos anexa a esta, 
a fita em questao, para que seja examinada. 

Julgando-me no direito de receber um cassete com os 
dois lados gravados bons, como prometido na proposta 
de assinante, permito-me a liberdade de solicitar de 
V.Sas., desde que possi'vel e sem prejuizo para a revista, 
a troca de brinde. Apssar da curiosidade muito grande 
em torno do Simulador que nao conhepo, para as mi- 
nhas aplicagSes, me seria muito mais util o Twin Go. 

Outrossim, aproveito o ensejo para perguntar como 
posso medir a capacidade de minha expansao de 64K, 
uma vez que, aplicando ; 999(3 PRINT PEEK 16388 + 
+ 256 * PEEK 16389 - 16384 encontro: 48.896 
Bytes. Certo da compreensao de V.Sas., atenciosamente. 

Lorenzo C.B. Scat fa Fafcao 

Prezado Lorenzo, 

Infelizmente nosso estoque de TWIN GO ja esti intei- 
ramente comprometido e nao podemos efetuar a troca 
solicitada. Podemos, por4m, trocar a fita do "Simulador 
de VdO" por outra identica (que voce nos devolveu foi 
testada e nao estava com defeitoj ou pela nova fita SAO 
PAULO e MANSAO MALUCA. Escreva-nos comuni- 
cando sua decisao. 

Com retaQao a sua expansao para 64K aconselhamos 
a leitura da se^So DESGRILANDO. 

O 
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PROBLEMAS 

Use Tig Loader { 




APENAS: 
CR$ f 5.000,00 



TIG-LOADER possibilita: 

• a localizapao do otimo volume do gravador, 
facilitandoa operagao LOAD. 

• DUPLICAR qualquer programa, mesmo aque- 
les "fechados". 

• carregar (LOAD) e DUPLICAR simultanea- 
mente. 

• gravar (SAVE) em 2 gravadores ao mesmo 
tempo. 

• monitorar as operapoes LOAD, SAVE ou 
DUPLICAQAO atraves de fone. 

• filtrar as interferencias eletricas de baixa 
freqiiencia, que sac a causa da maioria 
dos problemas de LOAD/SAVE. 



APLICATIVOSPARATK 

TIG-SCREEN: vinte e sete rotinas de vi'deo, para incrementar seus programas! 
Inversao de vi'deo, moldura, arquivo de imagens, rota?ao, scroll em quatro 
diregoes, etc... efeitos visuals incnveis! Em linguagem de maquina, ocupa 
1,3Kb, ficando protegido no RAMTOP, depois e so utiliza-lo onde quizer! 
P/ 16K Com manual explicativo Cr$ 8.000,00 

TIG-COMP; coloque, em seus programas em BASIC, a velocidade de 

c6digo de maquina. Rode-os na forma COMPILADA! Simples de usar, 

6 s6 carregar ou digitar o seu programa em BASIC e depois usar 

o TIG-COMP. Pronto! Voce tera o seu programa em linguagem de maquina em 

instantes. 

P/16K Com manual explicativo Cr$ 15.000,00 

TIG-SPEED: uma combinapao de soft e hardw/are, permitindo uma transferencia 
de dados micro/cassete de 4.200 bauds. Voce podera carregar ou gravar 
16 Kb em 30 segundos! Acrescenta ao micro a fungao VERIFY. Facilimo de 
operar, compoe-se de cassete, interface e manual explicativo. 
P/ 16 e 48K Prepo sob consulta. 



Envie seu pedido + cheque nominal cruzado 
Prazo de entrega : 1 5 d ias 

Despesas postals inclui'das nos pregos 
Atendemos somente por carta 




Rua Correia Galvao, 224 
CEP 01547 -Sao Paulo -SP 

TIGRE COM. DE EQUIP. P/ COM PUT ADO RES LTDA. 
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SIM, desajo receber os produtoi acima ralacionado. para o que sslou anexando o cheque n5. no valor 

da ...„ 

NOME 

ENDEREQO 

CEP CIDADE 

PROFISSAO 



MICROCOMPUTADOR 



.ESTADO 

.DATA NASC. 
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A EXPANSAO PARA 64 K 



Prezados Senhores, 

Seria injustipa de minha parte, nao acusar o recebi- 
mento da FITA BRINDE e muito mals, deixar de agra- 
decer-lhes pela mesma. Programa "Simulador de 
VOO" 6 realmente fantastico. For isso, e pelo que pro- 
mete a revista, acho que foi um bom negocio tornsr-me 
assinante da mesma. 

Mas DOS, amadores do Basic-TK precisamos mesmo de 
uma publicaipao de apoio, como promete ser a MICRO- 
HOBBY. E no momento, eu, em particular estou pedin- 
do ajuda a voces. Trata-se de saber se exists algum pro- 
grama capaz de calcular com precisao a quantidade de 
membria (em bytes ou Kbytes) ocupada com determi- 
nado programa, pois 6 muito desagraddvei, ao se digitar 
um programa iongo, ver "estourar" a memorla do com- 
putador. Assim, podendo "medir" a quantidade de me- 
moria ocupada, torna-se pr^tico e maJs f^cil trabalhar, 
mesmo quando se tem uma expansao de memoria de 
64 K, como 6 meu caso. Mas j5 me aconteceu de perder 
programas quase no final do service. E ai, comose faz? 
Nao adianta "esquentar" a "cuca". 

No meu caso, as coisas sao piores. Explico: no livro de 
Delio Santos Lima, "45 PROGRAMAS PRONTOS 
PARA RODAR EM TK-82C e NEZ8000" (Livraria Po- 
liedro — 3^ edipao), ha na pdgina 4, umas dicas para se 
obter o numero de bytes ocupados pelo programa, que 6 
a seguinte: 



T650g 



PRINT PEEK 16396 + 256 * PEEK 16397 - 



e h^ tamb^m vari^veis e display: 

PRINT PEEK 16404 + 256 * PEEK 16405 - 16509 

Recomendando usar o comando diretamente como 
indicado, e NEW LINE. No final da I istagem do progra- 
ma, 6 claro, e sem etiqueta. 

Ap6s ter dtgitado um Iongo programa, f iz o comando 
conforme indicado e o resultado foi de 15,960 Kbytes. 
Com esse resultado, fiquei tranquilo e prossegui com 
mais umas 8 linhas de programa (+ ou -) e foi sf que 
aconteceu g BOMBA. computador limpou tudo e fi- 
cou a tela com tragos horizontals que depois rodavam na 
tela, etc, etc. Sera que os amigos podem me dizer algu- 
ma coisa, se a EXPANSAO QUE POSSUO £ DE 64K^ 
E POROUE QUANDO PROBLEMA ESBARROU OU 
TENTOU ULTRAPASSAR OS 16K, a memoria estou- 
rou? Ou sera que o programa do DELIO SANTOS LIMA 
nao est^ correto? Ou sera que a MICRODIGITAL est^ 
trapaceando, vendendo gato per lebre? Gostaria que os 
amigos me ajudassem, pois a mem6ria que vaj estourar 
agora, ser^ com certeza a minha. 

Para uma resposta mais rapids, mando um envelope 
selado. Mas se considerarem esse caso de importancia 
(pode estar acontecendo com outros TK) podem dar a 
dica atraves da revista, o que seria de grande utilidade 
talvez, para outros usu^rios do TK. 

Em proxima oportunidade, voltarei com programas 
de utilidade COME PC I AL, de minha autorla para cola- 
borar com a Revista MICROHOBBY; no momento, os 
mesmos estsio sendo testados, afim deevitar que surjam 
problemas ou erros durante a execugao. 
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Por falar em teste, pepo a atenpao dos amigos, em 
especial do Sr, PIERLUIGI PIAZZI, para o fato deque 
estamos aqui desenvolvendo um programa, apelidamos 
provisoriamente de "GH" (Geragao Humana). Parece 
pura maluquice, i o que todos pensam (quando pepo 
ajuda) quando dizemos que o programa destina-se a 
fazer a PREVISAO DO SEXO DO BEBE que ira nascer 
de determinada mae. A ajuda que pedimos, e que as pes- 
soas fornegam as datas completas de nascimento (so da 
MAE, 6 claro), bem como as datas dos filhos que j^ hou- 
verem nascido. Agora, enquanto estamos em fase de ex- 
periencia com o programa, queremos saber o percentual 
de erros e acertos, em 1000 cases, com um desacerto 
apenas. Para n6s, isso j^ representa alguma coisa. Mas 
precisamos de mais dados, como conseguir? Preferimos 
lidar com pessoas desconhecidas. A pesquisa funciona 
da seguinte forma: A pessoa (Mae) nos fornece o dia, 
mes e ano de nascimento, e as datas tamb^m dos filhos 
que jci nasceram e o sexo. computador ird entao fazer 
cdlculo, que ira confirmar o sexo dos que j^ nasceram, 
dizendo entao qual ser^ o sexo do pr6ximo que ira nas- 
cer. que realmente nos interessa no momento 6 essa 
confirma(?ao do sexo dos ja nascidos. Pols sera esse fndi- 
ce que determinard a validade ou nao, do programa. 

Creio que os amigos poderiam dar-nos uma "colher de 
ch^", publicando um anuncio pequeno na MICRO- 
HOBBY pedindo aos usuarios do TK, que enviem nome, 
data de nascimento, do usu^rio, da esposa e dos filhos 
todos — inclusive se houver algum ja falecido. Ou caso 
de aborto; as datas desses tamb^m devem contar, Esse 
material poderia ser enviado para: 

CRM -Cx. Postal: 43 
68250 - Obidos - PA 

Acho que assim, dentro de pouco tempo ten'amos 
mais uma vit6ria do BASIC TK, al^m de testar a recepti- 
vidade da nossa nova revista, que ter^ que crescer mais, 
muito mais ainda, e do que temos certeza, essa & a inten- 
g§o dos Senhores, 

Roberto R. Malcher (Obidos - PAI 

Caro Roberto, 

Vamos comegar pelo fim: voce nao estd ocupando 
nosso "precioso" tempo. Pelo contr^riol Voce est^ dan- 
do uma valiosi'ssima contn'bui(:ao para a revista e para 
seus leitores, apresentando os grilos que voce apresentou. 

Vamos agora ao seu esctarecimento: 
1} MEDIDA DOS BYTES OCUPADOS PELO PROGRA- 
MA — As dicas fornecidas no Uvro do D£LI0 estao mais 
que corretas. Para maiores detalhes sobre o significado 
do que voce digitou aconselhamos uma rapida teitura na 
se^So DICAS da materia "O MAPA DA RAM DO TK" 
que foi elaborada por causa da sua carta ! 

Estude com particular cuidado a variivei RAMTOP na 
dica cltada para poder entender o esctarecimento do gri- 
lo seguinte. 

A EXPANSAO PARA 64K - Quando vociconectaa 
expansSo para 64K no seu TK82, a memdria passa a se 
organizar como segue: 



ENDEREQO 



8192 
16384 

32768 



65536 



IK 



ROM 


RAM 1 


RAM 2 


RAM 3 



= 2'* =1024 
• K 



BK 
16K 
24 K 
32 K 

4^K 
4SK 
56 K 
64 K 



O sistema operacional do TK foi pro/etado, original- 
mente, para nao aproveitar como RAM os8 Kbytes mar- 
cados como RAM 1. Alem disso, as primeiras maquinas 
construi'das tinham uma ROM que previa uma expansao 
ate f6K no maxima, ou seja, a RAM 2 que vai ati o en- 
derego 32768. Isto produz tres problemas facilmente so- 
lucioniveis: 

A variavel RAMTOP do seu TK assume, provavelmen- 
te, valor maxima de 32768. Quando voce conecta sua 
expansao de 64K o computador "pensa" que tern ape- 
nas 16K de RAM e por isso acontecem coisas estranhas 
ao atingir o limite de 16K. 

A soIuqSo deste problema 4 extremamente simples: 
basta contar ao computador, assim que a memdria foi 
conectada, que ale pode chegar ate o enderego 65535. 
Isto 4 feito atraves de um comando direto (conforme in- 
dicado no manual de instrugoes de expansao para 64K). 



POKE 16389,255 

Ao receber este comando, a variavel RAMTOP, cujo 
valor esta armazenado nos bytes de enderegos 16388 e 
16389, mude seu valor: 



ANTES DO DEPOIS DO 
POKE POKE 


16388 








16389 


128 


255 


VALOR 

DA 

RAMTOP 


32768 


65280 



Para calcular o valor do RAMTOP, multiplicar o valor 
armazenada no byte 16389 por 256 e samar o valor con- 
tido no byte 16388. 

Se voce quiser, portanto, todos os bytes a que tern di- 
reito, digite tambim 

POKE 16388,255 
que o valor de RAMTOP sobe de 65280 para 65535. 
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LIVROSPARA TK SEZ, CF 



TRINTA JOGOS 

INCLUINDO PROGRAMAS EM CODIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE , PAREDAO, 
DEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MAGICO, SENHA, BAN 
CO IMOBILIARIO, BOMBARDEIO, SOM 

POR SOFTWARE, ETC 

LANgAMENTO CR$ 4.000^00 



APLICACOES SERIAS 

FOLHA DE PAGAMENTO, BALANCETE ,CON 
TAS A RECEBER, A PAGAR , CORREQAO 
MONET ARIA DAS CONTAS DO BALANgO, 
CORREgAO DAS CONTRIBUlgOES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCARIA,TABELA PRICE, ESTA- 
riSTICA, CORREgAO DE PROVAS, EDITOR 
DE TEXTOS,RAM TOPER , SUB-ROTINAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES, ECONOMIZAN 
DO MEMORIA, ETC... ETC... 

CM 4.800^00 

45 PROGRAMAS 

ARQUIVOS.ESTOQUE, PLANO COWTABIL , 
AGENDA TELEFONICA, INVASORES.APAGUE 
A TRILHA, CAQA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS, TABUADAS, 
CONVERSAO DE COORDENADAS, MEDIA, FI 
BONACCI.PROGRESSAO, BIORRITMO , RE 
NUMERADOR DE LINHAS EM CODIGO, ETC. 
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Cr$ 4.000,00 



MICRON 



ELETRONICA COMEHCIO E INDUSTRIA LTDA. 

Av S Joao '■) Teielone :2 4194 S. Jose dos Campos 

Est. de Sao Paulo 



Quando voce for elaborar programas especi'ficos para 
serem usados com expansSo de 64K 4 conveniente colo- 
car OS dois POKEs como primeiras instrugoes do progra- 
ma, no caso do usuario ter urn dos primeiras TKs. 

O segurjdo problema 6 referente aos 8K da RAMI. 
sistema operaciona! do TK simplesmerite os ignora 
pois ele organiza a RAM a partir do endere^o 16384. Is- 
to pode ser considerado, a primeira vista, como uma des- 
vantagem, mas com urn pouco de cuca e habiiidade pode 
ser transformado numa coisa maravilhosa: Quando se di 
urn NEW ou urn LOAD, toda a RAM e apagada, mas o 
que estiver na RAM t esti a salvo I Voc§ pode, par 
exempio, transferir para este esconderijo urn arquivo de 
urn programa, carregar de fita um segundo programa 
apagando a primeiro e utilizar o arquivo no segundo. Po- 
de armazenar uma duzia de telas para serem chamadas 
oportunamente, e assim par diante. Obviamente a utili- 
zagao mais proveitosa deste nicho de 8K S a localizagSo 
de rotinas em linguagem de m4quina, expandindo o pr6- 
prio sistema operaciona I do TK. 

£ claro que so podemos escrever nestes 8K atrav4s de 
POKE e s6 podemos ler atravis c^e PEE K. 

terceiro problema 4 referente ao arquivo da ima- 
gem: ele nao pode ficar "a cavalo" do enderego 32768. 
Isto significa que ele nao pode estar armazenado parte 
na RAM 2e parte na RAM 3. 

Quem desloca a posigao do arquivo da imagem na me- 
mdria 4 a comprimento do programa. Quando este 4 
muito extenso, o arquivo pode ficar na posipao critica 
citada (talvez essa se/a a causa do seu problema). 

A solugao 4 encompridar artificialmente o programa 
em algumas centenas de bytes (com uma linha REM, por 
exempio) de maneira a fazer o arquivo de imagem cair 
inteiro na RAM 3. 

3} PROGRAMA COMERCIAL E ESTATI'STICO - Esta- 
mos esperando ansiosamente seu programa COMER- 
CIAL (e OS leitores tambSm), enquanto nadarmos num 
mar de FORCA, SENHA, JOGO DA VELHA e DESE- 
NHANDONA TELAl 

Com relagao ao programa GH achamos a proposta tao 
interessante e merecedora de apoio que preparamos um 
apelo especial na p4g. 33 . 

Esperamos que estas respostas tenham sido uteis para 
voce e para os leitores com problemas anilogos. Um 
abrapo. 

PIERLUIGI P/AZZI 



<tr 
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PROG RAMA DOMES 



EEasriASPEED 



<t 




Muitos felizes possuidores de um TK82 comeparam a 
ser roi'dos pelo verde microbio da inveja quando viram 
um TK85 gravando e lendo programas a uma veiocidade 
incri'vel, usando o HIGH-SPEED. Esta inveja se torna 
mais intensa quando percebem que nao se trata so de al- 
terar a veiocidade de transmissao de dados, mas sim de 
acrescentar filtros e amplificadores. 

Para amenizar esta inveja estamos publicando um "pa- 
liativo": o PENTASPEED, Como o nome sugere, o 
PENTASPEED d uma rotina (em ASSEMBLY) que per- 
mite ler e gravar programas com uma veiocidade cinco 
vezes maior que o usual. 

Esta veiocidade 6 suHciente alta para valer a pena o 
trabalho de inserir a rotina no computador com 16K, 
mas suficientemente baixa para nao exigir nada alem de 
um gravador razoSvei e fita de boa qualidade, 

Inicialmente digitamos o programa A da fig. 1, to- 
mando o cuidado de inserir pelo menos 282 "zeros" na 
linhal REM. 

PROGRHMO R 

1 REM 000090000^000000000000^ 
00000000000000080000000000000000 
00000000000000000000000^00000000 
00OO0000000900000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
00000000000000000000000000000000 
000000000000000000000000000 0000C?. 
00000000000000000000000000000000 

O00 

10 PRINT "ENDERECO INICXRL'?" 

£0 INPUT E 

30 PRINT E 

4.0 FOR I=E TD 167S7 

SO SCROLL 

60 PR INT I; ■■ . . . "; 

70 INPUT P 

80 PRINT P 

90 POKE I^P 

1.0C5 MEX.T X 

11© SCROLL 

lao PRINT "FIH" 

A veiocidade deste programa nao e compati'vel com 
HIGH-SPEED, nao permitindo aproveitamento de fi- 
tas gravadas nesta veiocidade. Em compensatpao ele pode 
ser carregado num TK85, que passara a ter 3 opgoes de 
veiocidade de transmissao de dados. 

Ao rodar este programa ele pede o enderepo inicial. 



Devemos digitar: 
16514 

a seguir toda a lista de c6digos decimals da fig. 2. pro- 
grama, atrav^s do POKE da linha 90 ir^ substituindo os 
"0" da linha REM pelos bytes da rotina em iinguagem 
de m^quina. 

Se voce errar algum byte n§o tem problema: digite 
STOP e NEW LINE interrompendo o programa. A seguir 
comande RUN e indique como enderego inicial o ultimo 
em que voce digitou corretamente. 

LISTRGEM DOS ENDERECOS E CODXGOS 
DECIMRIS DR RQTINR PENTASPEED 
PftRR INSERIR Nfi LINHfi 1 REM 



1S514., . 


.S05 


ifiSlE- , . 


. 15 


165 la , . 


. C; 


lesae. . 


.205 


i&sai:: . . 


. 137 


16524-. . 


.43 


1652&. . 


.£01 


165Se. . 


.35 


i653C. . 


.33 


16532. . 


. 127 


16534- . . 


.22 


ie-53& . . 


.205 


1653S. , 


. 137 


1554.0. . 


.4-3 


1654.S . . 


.201 


16544 . . 


. 11 


1654-6 . . 


.0 


1654-6, , 


.0 


16550. . 


.0 


16B5£. . 


.205 


16554 . . 


.3 


16SS6. . 


.24-9 


16556. . 


. 17 


16560 . . 


. IS 


16S6£, . 


.70 


16664 . -. 


.4-8 


13566. . 


. 16 


13568. . 


.27 


16570 . = 


. 179 


16E7£. = 


.24.4. 


1657;;- . . 


. 73 


J.'3>^7& ^ ± 


.203 


16676. . 


.36 


xesse? . . 


.24.3 


1653& . i 


.S 


16564- . . 


.205 


16566 . . 


. 127 



15515. 
16517. 
1551^. 
16521. 
16523. 
It&iiS . 
16527. 
16529. 
16531. 
1S533. 
16535. 
16537. 
16539. 
1654-1. 
1654-3 , 
1654-5. 
16S4-7. 
1554-9 . 
16551. 
16553. 
16555. 
16557. 
16559 . 
16561, 
lS5o3 . 
16565, 
16567. 
16569. 
15571. 
16573. 
16675. 
16577 . 
16579. 
165S1. 
16533. 
16565. 
16537. 



« « T r « I 

. - 17 
. . 127 
. .4-3 

. .205 



fig. 2 



. . IS 

. .205 

. . 15 

. -29 

. .34. 

. .64. 

. . 112 

. .205 

. . 15 

. . 11 

. . 11 

. .0 

. .0 

. .0 _ 

. . lOD 

. . 5& 
, .235 

- .203 

. . 15 
. .4-6 

, . 2S4- 
. - 122 
, .32 
. . 2-^5 

. . 126 

. .33 
. . 64- 
. .76 

coiitinua 
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16S88 . . 


.252 


15530 . , 


.24 


165SS. . 


.94 


16594 . . 


.203 


1S59S. . 


.200 


1659©. . 


.230 


15500. . 


. 1-38 


15502. . 


.79 


15604- . . 


.255 


16606. . 


.35 


1660S. . 


.254 


16510. . 


.70 


16512. . 


.43 


16514. . 


.6 


15515. . 


. 15 








■ J.3 


166£0. . 


.238 


15522. . 


.215 


1652+ . . 


.24 


16625. . 


.^06 


166S8. . 


.3 


16630. . 


. 18 


16632. . 


.10 


16634 . . 


. 124 


16636. . 


.24 


15638. . 


. 14 


16640. . 


.6 


15642. . 


.62 


16644. . 


.219 


16646. . 


.211 


1664S. . 


.31 


16650. . 


.73 


16652. . 


.23 


16654. . 


.40 


15555. . 


.2+1 


166SS. . 


. 135 


16660. . 


.229 


16662. . 


.93 


16664. . 


.205 


16566 . . 


. 127 


1555S . . 


. 122 


16670. . 


.32 


16572 . . 


. 190 


16674. . 


.214 


16676. . 


.23 


16678. . 


.241 


165S0. . 


.52 


16682 . . 


.33 


16684. . 


.64 


166S6 . . 


.205 


16688. . 


. 127 


15590. . 


.205 


16592. . 


. 1 


16594. . 


.246 


16696 . . 


.30 


1659S. . 


.6 


1570O. . 


.29 


16702. . 


.254 


15704. . 


.203 


15705. . 


. 123 


1670S . . 


.245 


16710. . 


-245 


15712. . 


.32 


16714. . 


.254 


16716. . 


.43 


16718. . 


.63 


16720 . . 


.17 


16722, . 


. 173 


16724-. . 


. 122 


16725 . . 


.40 


16728 . . 


.207 


16730 . . 


. 1S7 


16732 . . 


.80 


15734. . 


.254 


16736 . . 


. 110 


16738 . . 


.33 


16740. . 


.64 


16742. . 


.0 


16.744 . = 


. 1 


16745. . 


.0 


16748. . 


. 176 


15750 . . 


.255 


15752. . 


.34 


16754. . 


.64 


16756. . 


. 195 



16539. 




. 1 


16591. 




.248 


16593. 




.55 


16595. 




. 19 


16597. 




. 159 


16S99. 




.2 


16S01. 




. 1 


16603. 




.211 


16605. 




.5 


16607. 




. IS 


16609, 




.235 


16611. 




.15 


16ol3. 




. 114 


16615. 




.30 


16617, 




.254- 


16619. 




- 32 


16621. 




. 195 


16623. 




. 127 


16525- 




.224 


16627. 




. 155 


16529. 




.203 


16631. 




.203 


16633. 




,235 


16t?3S. 




.127 


i66Li7. 




.251 


16o3y . 




.1 


16841. 




.0 


16643. 




. 127 


16645. 




.254 


16647 . 




.255 


16549. 




.43 


16551, 




-23 


16653. 




.55 


1655S. 




.16 


16657. 




.24-1 


16559. 




.210 


leoDi . 




,3 


16563 . 




- 137 


16565. 




. 124- 


15667. 




.203 


16669. 




.121 


16671. 




. 3 


16673. 




.32 


16575. 




.35 


16677. 




.4-3 


16679. 




-253 


166S1. 




.21 


166S3. 




,9 


16685. 




.30 


16687. 




.124 


16689. 




.113 


16691. 




.2SS 


16693. 




.24 


16695. 




.213 


16697. 




.4-9 


16699 . 




. 14 


16701. 




.219 


16703. 




.23 


16705. 




. 123 


16707. 




.55 


16709. 




,1S 


16711. 




.209 


16713. 




.4 


16715. 




.66 


16717. 


s 


- 175 


16719. 


a 


,203 


16721. 




.43 


16723. 




*-4 ..■%. 'T 


16725-= 




. 157 


16727. 




. 137 


16729 . 




. 12 


16731. 




.6 


16733. 




. 16 


16735. 




. 19S 


16737, 




. 127 


16739 , 




. 130 


1674-1. 




, 17 


16743- 




. 127 


1674s. 




.224 


16747. 




-237 


15749. 




.33 


16751. 




. 126 


16753. 




.4 


16755. 




. 195 


16757. 




.3 



Ao terminar esta tarefa apague todas as linhas do pro- 
grama A, menos a 1 REM, agora toda cheia de uma es- 
tranha sequencia de caracteres. A seguir digite as linhas 
de 10 a 70 do progrsma B {fig. 3). 

PROGR«MR B 



RNDU 
<COS 
RETU 

C 



1 REM LN 7?)^^ai_N Fl»_N F?TRN 

N 7'?51^.-RNDLN ?ffi^N F^TRN " 

LN^*S RfiND FOR t ACS >LN 

t RETURM .-m^ POKE LN '?aWC5 

N 7G»_N UNPL-OT ■ ./ SHUE 7RRCS 

a NEW ^EN ■ '7PEEK COPY J*7 i 

RN LN TTK"?-^ t RETURN *4 INPUT 

»a^ 3TEP L.N g^CS >fiCS *LN -?H.^ 

LS "^ YS<= RETURN PEEK COPY 3K2. 

»*SC( L.ET l_ET ®qBS POST "^TLN ^ 

RCS '?'?4^y.CHR$ 7*K LET CLERR D+S 

wsRND'?LN '^'>LN UNPLOT " ^ PLOT 3TR 

$ 2lW:1<= return *ncs ??s prxnt 

( PRINT SGN 4« RETURN ^KffiZRCSJ K 
aiTRN TgCMlNT car? < RETURN ^^SN^ 
ND) BT STEP GOSUB OS COP^' ^aS® 
000000000000000000008000000808^00 

10 SRUE ■•PENTRSP EEP" 
TRB 



ae PRXNT 



8; 



30 PRINT ,,,,,, "P^ GRRVRR DIGX 
TE RRND USR 32512" __ 

4-0 PRXNT "P^CRRREGRR DIGXTE RR 
ND USR 32525" 

Se PRINT "PRRfi GURRDRR ESTR RO 
TINR NO FIH DR RRM DIGITE QURLG 
UER LETRR" 

60 PRUSE 4.0000 

70 RRND USR 1673S 

Prepare uma boa fita, coloque o gravador na posigao 
gravar e comande RUN. programa B vai se gravar 
(devido a linha 1 0) e a seguir ja se inicia (fig. 4}. 



P^ GRRURR DIGITE RfiND USR 32512 
P^-CRRREGRR DIGITE RRND USR 3S512 
PRRR GURRDRR ESTR ROTINR NO FIM 
DH RRM DIGITE OURLQUER LEXRR 



L 



Ac digitar qualquer letra o programa abaixa o valor 
da RAMTOP de uns 250 bytes e transfere para esta re- 
giao reservada o codigo de maquina contido na linha 
1 REM. A seguir o programa se autodestroi, e o compu- 
tador ftca com a RAM aparentemente vazia. Nao se as- 
suste: a rotina esta escondidinha no topo da RAM e a 
unica maneira de tir^-la de 1^ 6 desligar o computador. 
Pegue uma qualquer de suas fitas j^ gravadas e passe um 
programa para o computador. A seguir coloque uma fi- 
ta virgem no gravador, digite: 

RAMD USR 32512 

Coloque a fita rodando com o gravador em REC e di- 
gite NEW LINE. Seu programa esta sendo passado para a 
fitaemPENTASPEED. 

Rebobine a fita, digite: 

RAND USR 32525 

e NEW LINE. 

Ao passar da fita para o computador um programa de 
5 minutos demorard apenas 1 minuto. 

O 
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CURSO DE (E(Al)(SlO(cZ] TK 
aula 4 



At6 agora, aprendemos a programar o computador pa- 
ra que ele executasse v^rias ordens seguidas; entretanto, 
durante a execugao, ele so escrevia coisas na tela, fszia 
cdlculos ou "buscava" coisas em suas memorias; em 
outras palavras, ele apenas "falava" mas sem "escutar"! 
£como,por exempio, dizer a uma pessoa: (programa-la): 
fale 03 10 primeiros numeros paresf Durante a "exe- 
cupao" da ordem, ela nao necessitarS nos ouvir, apenas 
ir^ di^er os numeros. Agora experimente dizer a essa 
pessoa: eu quero que voce some 2 numeros! Ora, o que 
ela ir^ fazer? Ela terd que PERGUNTAR quais sao os 
numeros e "parar sua executjao" at^ que voce diga a ela 
quais s§o OS mesmosi Analogamente, no computador, 
existe uma instrugao que faz com que, durante a exe- 
cuQao, ele PARE e espere que voce coloque um numero 
atraves do teclado! Esta instrupao esta na tecla !: 
INPUT. Vamos entao fazer com que o computador nos 
pergunte 2 numeros e a seguir os some: 

10 INPUT R 
20 INPLfT B 
30 PRINT n+B 



CONVERSE 

COM 

PROFISSIONAI! 



SOFTWARE 

LInhacompleta 

de software aplicativo 

Desenvolvimento de software 

especif ico para sua 

necessJdade, 

ILinHa completa de programa 

para TK e CP-200 



SHOW ROOM E VENDAS: 



ASSESSOR! A 

'Antes da escoiha de seu micro 

nos digaqiiai o seu problema 

N6s orientaremos 

na escoiha do micro CERTO 

para voce 

ou suaempresa. 



CURSOS 

'basic I, BASIC AVANQADO 

Excelente material didStico, 
no mdximo lOalunos 
pof classe e 1 micro 
paracada 2alurios. 



VENHA NOS VISITAR 

AV EUSEB10 MATOSO, 654 - CEP 05<t23 ■ SP 

BEM EM FREIMTE AG SHOPPIIMG CENTER ELDORADO 

FONE: 813-3355 



Execute o programa. A tela flea em branco apenas 
com o cursor Q ; nao entre em panico. Ele est^ obede- 
cendo suas ordens. A primeira instruc;:ao diz para ele 
PARAR e esperar que atguem digite um numero pare a 
seguir coloc^-lo na vari^vel A na mem6ria. Coloque 
entao o numero 5<3 e a seguir NEW LINE. Novamente 
a tela fica em branco; ora, ele estd agora esperando o se- 
gundo valor. Digite 20 e NEW LINE; finalmente obtere- 
mos a soma. . . Note entretanto que a tela em branco 6 
um inconveniente que pode confundir bastante, princi- 
palmente se o programa for razoavelmente complicado. 
Portanto, e ijtil escrever algumas "mensagens", princi- 
palmente se o seu programa ir^ ser usado por alguma 
outra pessoa; essas mensagens NAO interferem na logica 
do programa, apenas ajudam a sua INTERPRETAQAO 
durante a EXECUCAO do mesmo; experimente entSo 
o seguinte: 



4- PRINT 
OS" 

e PRINT 

10 INPUT PI 

IS PRINT "OUR 

as INPUT B 

25 PRINT "R SOMR E^ 

30 PRINT R+e 



EU UOU SOMRR 2 NUMER 
OURt_ O PRIMEIRO ■?•' 
O SEGUNDO ?■■ 



Execute o programa. Note que as linhas 4, 8, 1 8 e 25 
sao apenas MENSAGENS. Acrescente entao as seguintes 
linhas: 



6 PRINT 

12 PRINT ft 

14- PRINT 

ai PRINT E 

SS^ PRINT 



Supondo, por exempio, que voce entre com os nume- 
ros 60 e 40 teremos na tela : 



EU UOU SOHRR 2 NUMEROS 

CURL O PRIMEIRO 7 

50 



SEGUNDO 
R SOMR E" 10® 



3 URL O 

4.0 



Come voc^ faria para os numeros 60 e 40 aparece- 
rem nao em baixo da pergunta mas IMEDIATAMENTE 
ao lado da mesma? E para que eles aparecessem na mes- 
ma linha da pergunta mas na METADE da tela? (Lem- 
bre-se do efeito do ";" e da ","; basta colocd-los con- 
venientemente nas instrucoes 8 e 18). 

Tenha entao sempre em mente que, ao programar um 
computador, 3 c6rebros estao em jogo: o seu, o do com- 
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u-rr-r^^" — s^^^ 



~PULO" 
DOSAPO 






%«-^ 



.^^^^ 



owTos j.36a HR.THO 4Aea anpos i 




mais recente lancamento da MULTISOFT para o 
seu TK (TK82, TK83 e TK85). 
Emocionante aventura onde vocfe conduzirS o 
sapo desde o ponto de partida, at^ uma casa vazia. 

Voc6 devera cruzar a aulo-estrada, sem ser 

atropetado e. em seguida, atravessar urn caudaloso 

no pulando sobre lartarugas e troncos que passam flutuando. 

Para adquiri-loe entrar para a galeria de recordes do 

pulo do sapo basta enviar carta com seu nome e 

enderepos completos. anexando oheoue de Cr$ 

5.690,00, nominal 4 MULTISOFT INFORM ATICA LTDA. ■ 

Cxa. Postal 54.121 • CEP 01296 ■ Sao Paulo ■ SP 



L informAtica LTDA.V^ 




mmm 




putador e o da pessoa que ira usar o programa £ por 
tsto que as "mensagens" slio fundamentais. 

Vamos agora apresentar outra KEY-WORD: trata-se 
do CLS {tecia V); acrescente a linha: 

S3 Cl-S 

que acontece? Esta instrugao APAGA tudo o que 
havia sido escrito na tela at6 entao. Note entretanto que 
fica difi'cil ver o efeito da instrugao PRINT B poisapaga- 
mos a tela logo em seguida. Para evitar isto, seria neces- 
sdrio uma "espera" ou pause antes que ele executasse 
essa instrugao; acrescente entao a linha: 



24 PRUSE 120 



tLETRR M) 



e veja o que ocorre. Esta instrupao acrescenta uma 
PAUSA ao programa onde para cada SEGUNDO de es- 
pera devemos adicionar 60; no case, a pausa 6 de 2s; se 
eu quizesse uma pausa de 3.5s deveria colocar PAUSE 
210. Note que durante um INPUT quando o computa- 
dor est^ "parado" esperando um numero, nao adianta 
fazer BREAK para apagar o programa, pois ele j^ est^ 
parado; assim, se voce quer interromper, deverS pres- 
sionar STOP (SHIFT e tecia A) e a seguir NEW LINE. 

Cabem aqui algumas informagoes quanto a precisao 
do computador; ele s6 reconhece 8 di'gitos diferentes de 
zero. De fato, usando o programa anterior, tente somar 
1 n 1 1 n 1 1 com 0; voce verS que e apresentado um re- 
sultado ERRADO pois estamos acima da precisao para 



este tipo de NOTAQAO de numeros; note entretanto 
que se o resultado tiver zeros no final ele 6 capaz de re- 
presentar ate a 13? casa; some 999.999.999.999 com 1 e 

resuitado estara correto. Se quisermos numeros maio- 
res, outra nota^o ter^ que ser utilizada; tente somar' 
9.999.999.999 com 1 , voce obter^ 1 E + 1 3 que signif ic3 

1 X 1 0" ; assim o computador e capaz de interpretar nu- 
meros com mais de 8 di'gitos desde que usemos esta no- 
tagao. mesmo ^ valido para numeros muito pequenos, 
maior numero em valor absoluto que o computador 
TK aceita^: 

1.70141 18E-H 38 

e o menor em valor absoluto (o mais proximo de zero) : 

2.9387359E-39 

Vamos fazer um programa que utilize as instruqoes 
aqui apresentadas, e mais uma fun<;3o que esta na tecIa 
G (ABS) que serve para calcular o valor ABSOLUTO de 
um numero, ou seja, seu m6dulo; para entende-la, expe- 
rimente antes fazer este pequeno programa; 

10 FOR 1=10 TO -10 STEP -1 
20 PRINT TAB (RBS II ; I 
38 NEXT I 



Que tal o efeito? 

Feito isto, iremos entao fazer um programa para 
"treinar a tabuada", que pergunte para voce o resultado 
de uma operagao de multiplicagao usando numeros 
"centrados" por ele escrevendo a sua resposta, a respos- 
ta do computador e a diferenga entre elas em valor 
absoluto. Vamos fazer com que ele pergunte tamb^m 
qual o valor maximo dos numeros que ele deve multi- 
plicar: 

i© RftHD 

S0 PRINT '-EU VOV 
OCE OURNTO URLE O 
HUHEROS" 

30 PRINT 



PeRGUNTRR ft U 
PRODUTO DE 2 



SUE 
4-0 
50 

ee 

70 

100 

110 

120 

130 
14-0 

150 

le© 

170 



OURL O NUHERO MfiXIMO 
EU P0S50 USRR 7" 
INPUT MRX 
CLS 

LET Aslt-rr i2*HRX*RND + l.* -MAX 
LgT ©=INT t2*MRX*RND+lJ -HHX 
PRINT fl; "X"; B; ■■ =''" 
INPUT P 
PRINT 
PRINT 



■SUR RESPOSTfl ";P 
'RESPDSTft CORRETR ";« 



PRI^^fT 
PRINT 



PHUSE 
Ct_S 
GOTO 20 



"DIFERENCfi 
1S0 



RBS tP-R 



Note que na linha 170 foi usada uma nova 
KEY-WORD: GOTO (tecIa G) que significa "v^ para" 
dada instruQao (no caso 20); seu efeito 6 analogo ao 
RUN so que ela NAO execute um CLEAR. De fato, pare 
o programa (usando BREAK ou STOP conforme o caso} 
e, execute-o novamente; so que, ao inv& de fazer RUN e 
NEW-LINE fa?a GOTO 10 e NEW LINE! 

Preste aten^o na estrutura utilizada nas linhas 60 e 
70 para "gerar" numeros positives ou negatives com va- 
lor absoluto menor do que o valor m^ximol o 
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QUEBRA-CABEQA ^ 



MENSA 

International 



Este mds: 




AS IDADES DAS TRES FILHAS 



quebra-cabega deste mes consiste em fazer com 
que, de algum modo, o TK resolva urn problema j^ bas- 
tanteconhecido. 

Um matem^tico (A), propos a um de aeus amigos, 
tambem matem^tico (B), que ele "adivinhasse" as idades 
de suas tres filhas. Entre eles transcorreu o seguinte di^- 
logo. 

Matematico A: "0 produto das idades de minhas tr§s fi- 
lhas e igual a 36". 

Matematico B: "S6 com essa informagao e Jmpossfvel 
saber quais as tres idades". 

Matemitico A: "Esta bem, Saiba, entao que a soma das 
idades das minhas filhas 6 igual ao numero daquela resi- 
dencia" (Disse isso apontando para uma casa prdxima de 
onde se encontravam). 

Matemitico B: "Ainda assim, me e impossi'vel precisar as 
idades". 

Matematico A: "Vou Ihe dar uma ultima pista. A mais 
veiha de minhas filhas danga "ballet". 

outro matematico pensou durante algum tempo e 
finalmente afirmou; 

Matematico B: "Com certeza, as idades de suas filhas 
sao ..." 

Obviamente, as idades devem ser consideradas como 
numeros inteiros e em anos. Assim, uma pessoa com 18 
anos e 6 meses de vida tern idade igual a 1 8 anos. 

A exempio do Quebra-Cabeca do nP 2 (Verdadeiro 
ou Falso), nao estamos interessados nas tres idades das 
filhas do Matematico (A), mas sim num programa que as 
obtenha. Aqui, tambem, 6 convenieme utilizar preferen- 
cialmente as instrucoes e comandos destinados h an^iises 
logicas: 

<IF . ..THEN, OR, AND, NOT, > -, < -.etc.). 



Vou F? 
solugao 



Renato da Silva Oliveira 

Para um ser humane, talvez a forma mais facil de re- 
solver esse problema seja escolher entre as dez (10) as- 
sergoes as duas mais antagonicas, (isto 6, as duas cujos 
valores V ou F, sejam necessariamentediferentes} eatri- 
buir a uma delas um valor. A partir dai, obter os valores 
das demais asserqoes e verificar se ha coerencia entre 
elas. Passando as vistas pelas dez afirmagoes a dupla es- 
colhida provavelmente serd formada pelas assergoes 9 e 
10. De fato, se a assergao 9 for verdadeira (valor V) a as- 
sergao 10 ser^ falsa (valor F); e, se a assergao 9 for falsa 
(valor F) a assergao 10 serd verdadeira (valor V), 

Para facilitar a analise das assergoes, nos as designare- 
mos convenientemente por A{1 ), A(2}, ... ate A(10) se- 
guindo a mesma ordem em que elas s§o apresentadas. 

Pode-se fazer, por exempio: 






A(10)= F 
A(9) = V 



; portanto 
; portanto 



. . . e assim por diante, at^ concluir algo a respeito da 
coerencia ou nao dos valores dados a assergoes. 

No exempio acima, em que sup6s-se A(10)= F, che- 
ga-se a uma incoerencia, o que mostra que, se hi uma so- 
lupao, nela o valor de A(10) tern que ser V. Tomando-se 
A(10}=V obt6m-se o resultado coerente mostrado 
abaixo: 



A(1) = V 
A(2)= F 
A(3) = V 
A(4) = F 
A(5) = V 



A(6) = F 
A(7)= F 
A(8) = V 
A(9) = F 
A(10) = V 



A solugao do problema, entretanto, nao ^solugao do 
"Quebra-Cabega". que queremos 6 um programa para 
que TK encontre a solugao! 

Podemos pensar em fazer um programa que "instrua" 
TK para que ele proceda de modo an^logo ao de um 
ser humano, entretanto, al^m de extremamente comple- 
xo, um programa desse tipo deve ser deveras extensoe, 
por conseguinte, levari muito tempo para ser rodado 
completamente. Provavelmente, tanio para o "micro" 
como para seu programador, o processo mais facil e r^- 
pido e, sem nenhum paradoxo, o mais simples e traba- 
Ihoso . 



continiH 
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(Por exempio: Fazer mil contas de somar e mais sim- 
ples e mais trabalhoso que fazer uma unica extra'(;ao 
de rai'z quadrada), 

Tal processo conslste apenas em atribuir a cada asser- 
gao urn valor (V ou F) e para cada sequencia de valores 

dados a A{1), A(2) A(10) verificar se h^ ou nSo 

coerencia. As assergoes sao em numero de dez (10>, cada 
uma podendo assumir dots valores (V ou F}, portanto o 
numero de sequencias possiVeis e 2'° = 1024 (desde 
A(1 ) = A(2) = . . . = A(10) = F ate A(1 ) = A(2) = , . . 
.,.= A(10) = V). > 

que TK terd que fazer 6 gersr cada uma das 1024 
sequencias de valores para as assergoes e testa-las uma 
por uma, mostrando na tela apenas as que forem coeren- 
tes e, portanto, sotugoes do problema. fluxograms a 
ser seguido deve ser algo semelhante ao mostrado 
abaixo: 




Ao tentar traduzir o fluxograma para a linguagem 
BASIC encontramos maior dificuldade quando temos 
que escrever o conteudo das assergoes numa linguagem 
conveniente para o TK. Umasolugao possi'vel eaprovei- 
tar as proprias caracteri'sticas do micro e chamar de 1 
(um) so valor V e de (zero) ao valor F, utilizando prin- 
cipalmente as instrugoes e comandos destinados a exe- 
cupao de operagoes logicas (IF . . . THEN; OR; AND; 
NOT;> =;<=;.. .etc, .). 

Abaixo encontra-se listado um dos possivets progra- 
mas obtidos como sugerido pelo fluxograma. Digite-o 
e verifique voce mesmo o resultado. Se voce tem ape- 
nas 2 Kbytes de RAM, nao se assuste com o fato de a lis- 
tagem confinar-se ao topo da tela. Isso acontece por que 



esse programa ocupa 1688 bytes e nao sobra lugar na 
memoria para o restante da listagem ser mostrado na te- 
la, principal inconveniente desse programa 6seu tem- 
po de processamento (cerca de 25 min). Como sugestao, 
ponha-o para rodar e va tomar um cafe e ler um pouco 
de jornal, superando engenhosamente o inconveniente! 



X0 

20 
30 

4-e 

S0 

60 
70 

se 

1S0 

110 

2@e 

210 
230 
230 
24.0 
250 
2&0 
270 
300 
■310 



REM "U OU F" 

FftST 

LET D=yRU "7" 

DIM H tl0J 

FOR N=xPI,'Pl TO 

LET M=N-PI.'PI 

FOR K=PIyPI TO UHL 

LET B=H.'2 

LET ft fK) =M-2*INT CEJ 

LET M=INT (BJ 

NEXT K 

DIM St 10) 

FOR X=PI^-PI TO URL 

LET 0=P1-PI 

FOR L^PIz-PI TO X 

LET 0=0+fi(L) 

NEXT L 



'JRL "2**10' 



10' 



10" 



LET & CX) =0 
NEXT X 
DIH Uti03 

LET U tPIyPXJ = C 15 t4-J =PJ[yPl:J 
OR (St6)=3) OR tStSJ =5.1.1 

320 LET U ca) = (5 t3) < IS C10J -S (e) ) 
) 
330 LET "v^ (3J = (S (10) <=S.l 
34.0 LET U f4.) = ( (S C3) =3> OR CSt + J 
-5(1) =31 OR (5 tSJ -S E2) =3J OR (S( 
6>-St3)=3} OR tS (7J -S <4..i =3> OR ( 
S<S)-SC5)=3) OR (S (9) -S rS) =3) OR 
(S (10) -S (73 =3) ) 
350 LET U C53 = (S V 10) > =SJ 

U t6> = tR C73 =n (ISJ > 

tR (63 +R (3,1 +R (10J =:F 



360 LET 
370 LET 

3S0 IF fl (10) 



U (7) 



=prypi 



J = ( (R t6) =P1-PI) RND 



J 



THEN LET U (8 
{fi (9J =PI-PI) 



H(10)=PI-PI THEN LET U(e 



381 IF 

) =PI^PI 

390 LET U (9) = ( { is (2} =2) OR ( tR ( 

2) +H (4.) =PI-PI) RND (H (S.> +fi i6J =2) 

) OR { (R (2) =PI-PI) RND CR(3J+Rt4- 

) =23 ) ) RND (R (63 =PI/'PIl 1 

4.00 LET U ( 10) = (R (93 =PJ:-PI3 

4.10 FOR R=PI,-'PI TO URL "10" 

IF U(R)=fi(R3 THEN GOTO 4.4-0 

GOTO 50© 

NEXT R 

FOR C=PX/PI TO URL 

IF LMOi^PI^'PI THEN 

"y ■ 

IF U(C)=PI-PI THEN 
..p.. 

NEXT C 

LET I>=D+UflL "S" 

NEXT N 

FOR Z=PI>'PI TO URL 

PRINT RT Z.PI^PI; 



4-30 

4.4.0 

4.S0 

460 

C.. D: 

4.70 

C .D ; 

4.S0 

490 

500 

510 

520 



•■i0- 
PRINT 



PIT 



PRINT RT 



'R C 



..-2; 



521 NEXT Z 
5S5 PRINT RT URL 
103 =" 



10" .. PL-PI,: "H f 



As linhas de 50 a 1 1 geram uma sequencia de 10 va- 
lores. As de 210 a 270 apenas auxiliam na an^lise da 
coerencia. As linhas de 300 a4i)0sao as assergoes tradu- 
zidas e escritas de forma conveniente (verifique comol} 
para o TK. As linhas de 41 a 440 testam a coerencia e, 
finalmente, as linhas de450 a 525 apresentam o(s) re- 
sultado(s)** na tela. 

** (Nada garante que haja apenas uma solugao a prin- 
ci'pio!) „ 
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PROGRAMA DO LEITOR 




seu computador TK82 ou TK85 pode ser usado 
como urn eficiente professor. O Programa que apresen 
tamos adiante 1oi criado para auxilia-lo a memorizar pa- 
res de informapoes, como por exempio, pai'ses e suas ca- 
pitals, elementos qufmicos e seus si'mbolos, palavras em 
portugues e sua tradugao em ingles, e assim sucessiva- 
mente. 

Ele foi adaptado a partir de urn programa publicado 
originalmente na revista americana SYNC de Set/out de 
82. 

Se voce tiver tres horas de paciencia para entrar com 
programa no seu TK, voce ser^ recompensado com um 
excetente auxiliar de instru?ao. Vale a pena. . . Vamos 

ia Parte: ENTRADA DO PROGRAIVIA 

Entre com o programa conforme listado na figura 1, 
£ recomend^vel ir gravando programa em fila a medi- 
da que voce for digitando, para nao correr o risco de 
perder todo o seu trabalho com aiguma faita deenergia 
el^trica, por exempio. 

~ REM O PROFESSOR 

TancuziDo e hdrptrd-o 

POR B. C. 5TETH 
.JUNHG igS3 

S REM PRRR 'RUN" G PROGRRMO . 
ENTR£ "GOTG 103" 

9 REM PRRR ENTRRR COH HO'JGS 
DflDOS QU PRRR M(=irsilPU!_RR O PROGRft 
MR . ESFTRE "GOTO lOSe" 

1& LET B = IHT iRND*TOT3 +1 

1.2 CL5 

13 PRINT RT 4. ,0 i •■ -C-IGrrS G5 =RR 
R RETORNRR RO MENU-'" 

14- RETURN 

15 LET D$=XNKEY$ 

16 IF D$ = '•(?■' THEN GOTO 9QS 
1? RETURN 



Bernardo C, Stein 



20 PRINT "NESTR OPCflO., ";C$;" 

21 RETURN 

25 PRINT "UOCE DXSSE QUE E^ " : 

25 ' RETURN 

30 PRINT TRB S;"UOCE RCERTOU . " 

■31 RETURfN 

10S PRINT RT 5,0; "G PROFESSOR D 
E" 

102 PRINT T$ 

104. PRINT RT ia.0;"POR FRUOR . E 

NTRE COH O SEU HOME . " 

110 INPUT Ci 

115 CLS 

12S PRINT RT 4-.©: "COMO KJP.X ";C 

S: •■? ■ 

"EU UOU flJUDBR UOCE H 

■'DRDD-'-fl ' UM,'R •';«*.". " 
"UOCE IRR RPRENDER SE 



121 PRINT 
CONHECER 

122 PRINT 

123 PRINT 
U.^SUR 

124. PRINT N$; 

12S PRINT 

IS"? 3LO(J 

12S PRINT TOE 10; -MENU' 

129 RRIHT 



E UICE-UERSR. 



1. REUISRO Dfi LIST 

2. TESTE PRfiTICO" 

3. TESTE DE RRPIDE 

4-. FIM 0R ftULR" 
"ESCOLHR UMR DRS OPCO 



130 PRINT 
R- 

131 PRINT 

132 PRINT 
Z" 

133 PRINT 
134- PRIt^fT 
135 PRINT 

ES fiCIMR . •• 

14.0 It'^lPUT R 

id.2 IF R<>1 R.ND Ri>2 RNO R<>3 R 
NO a-;>4- THEN GOTO 14-3 

1,4-5 CLS 

1S0 GOTO R*200 

20S PRINT BT E,©;" REUI5 

RO DR LI3TR " 

205 G03UE 20 

21© PRINT "EU UOU MOSTRRR UH,-UM 

, "ftb , ( 

continui 
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aiTl PRINT 



■E RESPECT lUC-,'j= 



M$.; 



2 IP PRINT ■■ DEPOTS DB -rOSTRRR OS 
■■;TOT;" XTENS . PBSSftREI O RELR 
CHO ao CONTRRRIO." 

213 PRl^rr ■■ escolhr uh 

E R 9.. 0-PRSSmGEM 



IDS,- 

TR. " 

SIB 

217 

225 

a30 

235 
236 
24-0 
ad.5 

asi 
see 

2B5 
27© 
27B 
230 
SSI 
2SS 
2S0 
255 
236 
300 
305 
310 
4.00 



Q-PRSSRGEH 



hiUMERQ D 
MR IS RRP 
MR 13 L.EN 



OTO =15 



INPUT Z 

IF Z<0 OR Z>9 THEN 

FOR P.-± TG TOT 

GosuE xa 

PRlr-rr RT 3.0.2: B£(R) 

FOR N=0 TO d.+2*Z 

NEXT W 

GOSUB 15 

PRI^JT R$ Cfi} 

FOR M=0 TG 4.+2*Z 

NEXT N 

GOSUE 15 

NEXT R 

FOR fi=l TO TOT 

GOSUB 12 

PRIt-rr RT 10.2: RStR) 

FOR M=0 TO 4.+S*Z 

NEXT N 

GOSUB 15 

PRINT B* t(=3 

FOR N=0 TO 4-+24-Z 

NEXT N 

GOSUE 15 

NEXT n 

GOTO 220 

PRINT RT 5^0. • 

E PRRTICQ .____>• 

4.05 GOSUB 20 

"UOCE RESPONDEiRfi R 
SUESTRD 



4-10 PRINT 
OUESTOES: ■ 
R IS ■ 



EST 



30 

1 



EU l_HE DOU 
"UOCE ENTRfi 



4-11 PRINT 

4-12 PRINT 
Ufi ■■ : N^ : " . • 

4.13" PRINT ■■ 
ft 30" 

4-14- PRINT ■• 

4.15 PRINT ■■ 
RRR COMECRR- 

4-17 LET U=0 
INPUT Z$ 
IF Fa THEN GOTO 
FOR fl=l TO TOT 
LET E^tRJ =CHR* 
NEXT n 

FOR R=l TO IS 
GOSUB 10 

IF E$fB)="X" THEN GO 
PRINT HT e.. 0;"OURL E 



COH SEU,'S 



4.18 
4.19 
4-20 
4.25 
4.30 
4-3S 
4-4.0 
4.4.5 
4.4.7 

N*; ■■ 

4.S0 
4.60 
4.62 
4.55 
4.70 
4^72 
4.73 
475 
4.76 
E« " 
4.77 
4.78 
4.79 
4.S0 
4-90 



OUE5TRO 15 

FRREMOS O INUERSO." 
ENTRE •■■■NEU LIME"" F 



4.35 




DO.'H" 
PRINT 
INPUT 
GOSUB 
GOSUB 
IF LEN 



"O 






515 
520 
52S 
527 
530 
53S 
54-0 
S4.S 

550 

~m 

'551 
553 
554. 
555 
560 
565 



B$ (B) 



THEN GOTO 54.S 



PRINT RT 11 

INPUT D$ 

GOSUB 25 

GOSUB 16 

IF LEN D$=L1. 

LET [>$=D¥ + '- " 

GOTO 530 

XF D$=fi$tE) THEW GOTO 560 

PRINT "UOCE ERROU . O CERTD 



PRIf^rr TRE S:R$(Bi 

FOR N=0 TO d-0 

NEXT N 

GOTO 575 

GOSUE 30 

IF NOT P2 THEN LET 



LET C-*=Dt-!-' 
GOTO 4.70 
IF D$=B$fBji 

pRI^r^ -yocE 



RT 10je:FI$(B> 

25 
16 
Dt=L2 



ES (BI ="X 



HEN GOTO 4-7S 



THEN GOTO 4.Q0 
ERROU . O CSRTO 



PRINT TRB 3;B$tBJ 

FOR N=0 TO 35 

NEXT N 

GOTO 4.97 

IF NOT F2 THEN UET 



E$ tBi =*'X 



4.92 GOSUB 30 

4.93 LET U=U + 1 

4.95 FOR N=S TO IB 

4.96 NEXT N 
4-97 NEXT P. 

500 FOR R=l TO 15 

505 GOSUE 10 

SIO IF ESCB)="X" THEN GOTO 50S 

512 PRINT RT 9.0;"OURL E 0,'R "j 



570 FOR N=0 TO 20 

571 NEXT N 

572 LET U=U+1 
575 NEXT R 
580 CLS 

5S4. SLOU 

535 PRINT RT 9,. 0;C$;". UOCE FEZ 
'■.; u; " PONTOS. " 
5S6 PR INT 
590 PRINT -'DIGITE 
PRRR O MENU. ■" 
592 INPUT D$ 
59S GOTO 3QS 
600 PRINT RT 5.0;' 

DE RRPIDEZ ---'-. 

605 GOSUB 20 

610 PRINT "UOCE TEM 50 SEGUNDOS 
PRRR ENTRRRCOM O MOTOR NUHERO P 

OSSIVEL DE RESPOSTRS." 

611 PRINT "EU DOU UM,-R •■jM^.;".. " 

612 PRINT "UOCE ENTRR SEU^'SUR " 
; N*: " . '• 

613 PRINT 



"NEU LXNH' 



-TESTE 



M! 



J13 PRINT "CUJO-'R 



.: N¥.; 



E.. '■ 
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-1 PONTO PGR RHSPO& 

PONTOS 3E UOCE N 

E ENTRfiR ■■•■NEU L 



ei4 PRINT 
TR CHRTR . 
TB ERRRDR . 
RO SOUBER 
INE'" . ■■ 

615 PRINT 

616 PRINT "ENTRE ■•"NEU LINE"' P 
RRR COMECRR" 

61-? LET U=0 
613 FRST 

619 INPUT D$ 

620 POKE 3.6d.3&.Q 
625 POKE IBftSy*. 
630 GOSUE 10 

64.0 PRINT RT ie.8;PISCBJ 

64-5 INPUT D$ 

64-7 IF PEEK 16a36+256*PEEK 1S4-3 
7*62500 THEN GGTO S30 

6Se IF D$="" THEN GOTO 630 

6SS GOSUB IS 

B57 IF LEN D$=L2 THEN GOTO SB© 

BBS LET Dt=r>$-r" " 

559 GOTO 65"7 

660 IF C$<:>B$CB> THEN LET U=U-i 

665 IF D*=B$tB5 THEN LET U=U+1 

670 GOTO 630 

800 PRINT RT 9.0; "UOCE 5E SRIU 
MUITO BEM, •; C$ ;••.•■ 

S0S FOR N=0 TO a® 

806 NEXT N 

S07 PRINT 

B10 PRINT "ESPERQ QUE TEHHR GOB 
TRDO DE RPRENDER RLGO NOUO . " 

312 PRINT 

SIS FOR N=0 TO 20 

816 NEXT N 

820 PRINT •■****t**RTE" PI PROXIM 
O UEZ*******" 

B22 FOR N=0 TO 200 

S23 NEXT N 

S24. CLS 

S25 GOTO 100 

990 CLS 

991 PRir^rr rt b.i*;"" 

995 GOTO 126 

996 3RUE T^ 

997 GOTO 100 
999 CLS 

1000 PRINT fiT 6 .0: ■■'ROTINR PRRR C 
RIRCRO E REUI5RO DE DRDOS. ■■ 
1005 GOTO 132S 

1008 LET Fi=0 

1009 PRINT RT 10.S;"eNTRe COM O 
TXTULO DO SEU PROG 
RRMR . " 

iO10 INPUT T* 

1012 LET F2=Q 

1015 CLS 

1O20 PRINT RT 9.S; ENTRE CO:- O T 

XTULO (NO 5INGULRRJDO PRIHEIRO G 

RUPO DE XTENS DE SUR RELRCRO . 

DE PREFERENCIR OS XTENS HRIS LO 
NGOS. ■• 

1030 INPUT M» 
1035 CLS 

104-0 PRINT RT 9 .0 ; -OURNTOS DIGIT 
OS TERR R PRLRURH HRIS LOHGR DO 

PRIMEIRO GRUPD DE TTENS"" 
1050 INPUT LI 
1055 CLS 

1060 PRINT RT 9.0.'-ENTRE CDH O T 
rrULO (NO SINGUi-RRJ DO SEGUNDO GR 
UPO DE ITENS." 
1070 INPUT N$ 
1073 CLS 

107S PRINT RT S,©; 'QURNTOS DZGTT 
OS TERR R PRLRURR MRI5 LDNGR DO 

SEGUNDO GRUPO DE ITEN5''" 
10S0 INPUT L2 
10SS CLS 

1090 PRINT RT 9 .0; -OURNTOS XTENS 
.. NO TOTRL.. TERR R SUR RELRCRO-^" 
109S INPUT TOT 
1100 CLS 

1105 F'RXNT RT 5 . r "T ITULO " 

1106 PRINT T$ ■ " 

1110 PRINT "TITULC DQ 1. GRUPO D 
E ITEMS: ~ " ; M* 



1115 PRINT "HRIGR PRLfiURfi DO 1. 

SRUPO : - ■■:Ll;" LETRHS-" 

1120 PRINT "TITULO DO 2. GRUPO D 

E ITENS: - "; N* 

1125 PRINT "HRIOR PRLRURR DO 2. 

GRUPO r- " ; L2 : " LETRRS . " 

1130 PRINT "TOTRL DE ITENS Dfi RE 

LRCRO : -■ ■' ;T0T 

11.3S PRINT 

114.0 PRINT "RS INFORMRCOES E5TRO 

CERTRS-S,'N-?" 
114-2 INPUT ZJ 

114-5 IF Z$ = -S • THEN GOTO 1151 
114-7 IF Z$ = "N" THEN RUN 999 

1150 IF Z$<>"S- OR ZS<>"N'- THEN 
GOTO 114-0 

1151 IF TOT f 4.0 THEN LET F2 = l 
1160 DIH R$tTOT.L13 

1165 DIM B$tTOT'.L2) 

1170 DIM E$ (TOT) 

1X75 CLS 

IISS PRIf^^r RT 10.0."ENTRe COM O 

1, ITEM DO 1. GRUPO, DERQI3 CQH O 
1. ITEM DO SEGUNDO GRUPO; Et-TTRE 
COM O 2. XTEM DO 1 . GRUPO . O S. 

ITEM DO 3 . GRUPO . E fiSS 

IM POR D IRNTE . " 

1190 FOR R=l TO TOT 

1200 IF NOT Fl THEN GOTO 1250 

120S SCROLL 

1210 PRINT M$i •■--■■: fi* (Fl) 

1215 SCROLL 

laaO PRINT N4 :■•--■•; B* (R> 

iaS5 INPUT Z$" 

1230 IF ZS="" THEN GOTO 1290 

12S0 SCROLL 

1255 PRINT Mt; ■•--"; 

1250 INPUT Rt(R) 

1265 PRINT R$(R) 

1270 SCROLL 

1275 PRit-rr N$; •■--■■; 

128© INPUrr B* (R) 

1285 PRINT B*(fi3 

1290 NEXT R 

1292 CLS 

1295 IF Fl THEN GOTO 1320 

1300 PRITsTT RT 7.0:" NDS URMOS R 
GQRR REUER CRDR PAR DE ITENS. 

OURNDG ELES 
RPRRECEREH Nfl TELR ENTRE "NEU 
LINE""..SE E3TIUEREM CORRETOS. 

1301 PRINT " ENTRE ""X"'*^ ^^^ ""N 
|U LINE"'. SE E3 TIUEREM ERRRD-O 

1302 PRlr^fT " NESTE CftSD . UOLTE 
R ENTRRR COM O CTEM . " 

1305 LET Fl~l 
1310 GOTO 1190 

1320 PRir-rr rt s..s.. "uoce pode rgo 

1323 PRINT 
1330 PRINT 

.^.??.S PRINT ••!. CRIRR UM NOUO RRO 
U lUO . 

^52^^E?^*^*^ "^' RE«=R2HR R REUISRO 
DO RROUIUO. " 

133S PRINT -3. ■■■SRUE-- O PROGRR 

1339 PRINT 

134-0 PRINT -ESCOLHR UMR DfiS OPCO 

134-5 INPUT R 

134-5 CLS 

134.7 IF R-3 THEN GOTO 1370 

1348 IF R=l THEN RUN 1007 

lo50 IF H=2 THEN GOTO 3 300 

13SS GOTO 1330 

1360 CLS 

1370 PRINT RT 13^0;" RCIONE SEU 
GRRURDOR NR POSICRO -"REC"" E 
ENTRE "'"NEU LINE""." 

13S0 INPUT Z* 

1335 CLS 

1390 IF Z$="" THEN GOTO 936 

1400 STOP 
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F«tA COMO OS 

FUNCIMARIOS DA 

ALCAN, XEROX, 

SCARLE, COPAS, 

IKTELPA, OARUNG, 

AIR SERVICE: 




MATRtCUL£-SE NA 
$.0.S COMPUTADORES. 
CURSOS DE 



BASIC e COBOL. 

* Nuinero limftndo de alunos por 

'iM*$SL-^ cJasse * 1/3 de todas as aula$ com uso 

direto dos computadores, inclusive nos cursos de 

Cdiol • Professores aitamente qualificados • Cursos 

iQKistilados e apres«ntados com transpar^dits * Modemas 

InstalB^oes com v£rios equipamentos Disnuc, ProMgica, 

SjsiMtM entre outros • Pre^s extremamente acessiveis. 



COMPUTADORES 

nCicleo I 

Av.PacBsmW, 1.280 
Fonss; 66.7656/66.1513 



A NOVA MANEIRA DE 
APflENDER A PROGItAMAR 



NUCLEO II 

R.Tomis Carvslhal. SSO 
(Pi^xtmo Esta^lo Metrd Paraful 
Fone: 570.6097 



Uma vez digitado o programa proceda da seguinte 
forma: 

29 Parte: MANIPULApAO DO PROGRAMA 

1) Se voce estiver no modo FAST, volte ao modo 
.SLOW 

2) Nunca, nunca mesmo, entre com RUN 
3} DigiteGOTO 1000 

4} Aparecera o "MENU" com 3 op^oes (veja fig. 
no 2} 

5} Escolha a opgao nP 1 e NEW LINE. 

6) Siga as instrugoes do programa: 

a - escolha o ti'tulo; por exemplo, PAI'SES E SUAS 
CAPITAIS (este serd tamb^m o ti'tulo com o qual o pro- 
grama sera gravado mais adiante, 

b — escolha ti'tulo (no singular) da 1? serie de dados: 
PAI'S (no nosso exemplo). 

c — forneqa o numero de letras da palavra mais com- 
prida, por exemplo: 15. 

d — e — siga o mesmo procedimento para o segundo 
grupo de informapoes. Por exemplo: CAPITAL e 15 df- 
gitos. 

f — Entre agora com o numero de pai'ses e capitals 
que voce quer listar, por exemplo, 60. 

7) programa entao Ihe auxiliara a fazer uma revisao 
dos dados entrados at6 agora. Se houver afgum erro en- 
tre "N" (nao) e volte a fornecer os dados solicitados. 

8) Se estiver tudo certo entre "S" (sim) e, entao, co 
mece a fornecer ao computador os dados (no nosso 
exemplo: pafs e sua respectiva capitall at6 completar a 
s6rie. 



Se voce perceber que cometeu alguns erros, prossiga: 
havera oportunidade de se fazer a corregao por ocasiao 
da revisao, 

Apos entrar com todos os pares de informa^oes o 
programa auxiliary voce a fazer uma revisao. A cada par 
de dados entre "NEW LINE" se a informaoao estiver 
correta. Entre "X" se estiver errado e corrija a informa- 
cao, entrando novamente com o pafs e sua capital. 

9) Apos a revisao, o programa volta ao menu. Neste 
ponto escolha a opgao 3. Coloque seu gravador em 
"REC" e grave (SAVE) o programa em fita. 
39 parte - USO DO PROGRAMA 

Depois de todo nosso trabalho e dedicacao (ufa. . .), 
estamos agora prontos para usufruir das aulas do nosso 
professor cibernetico. 

1} Apos ter gravado o programa em fita ou quando, 
numa outra oportunidade, voce passd-lo da fita para o 
gravador, usando o comando LOAD "PAI'SES E SUAS 
CAPITAIS" (no nosso exemplo, € claro) ele se iniciara 
automaticamente convidando voce a fornecer seu nome. 

2) A partir desse momento o trstamento entre o 
computador e voce sera personalizado, ele se dirigira a 
voce e Ihe mandara o menu de opgoes que voce tern para 
memorizar os "PAI'SES E SUAS CAPITAIS" (veja fig 
3). 

3) Escolhendo a op(;:ao nP 1 ; revisao da Itsta, voce 
podera rever as capitals e seus respect ivos pai'ses e vice- 
versa. 

Voce pode escolher a velocidsde de revisao sendo (3 
a mais rapida e 9 a mais lenta. 

Para interromper a revisao entre Q e NEW LINE que 
tamb^m interrompera as opgoes nP 2 e 3 e retornard ao 
MENU, 

4) Na oppao nO 2: 

computador escolhera aleatoriamente 15 pai'ses e 
voce deve entrar com a sua respectiva capital. 

Depois ele escolhera 15 capitals e voce deverci forne- 
cer respectivo pais. No fim voce serd informado quan- 
tas respostas corretas voce deu. No caso de voce ter mais 
do que 40 I'tens fornecidas ao computador ele nao repe- 
tir^ a pergunta cuja resposta dada estiver correta. 

Na opqao 3, que 6 urn teste de rapidez, voce devera 
fornecer em segundos o maior numero possi'vel de capi- 
tals para os pai'ses perguntados. Cada resposta certa vale 
1 ponto, cada resposta errada voce perde urn ponto. Se 
voce so entrar NEW LINE voce nao perde nem ganha. 

A opgao n9 4 e um final para o programa, que se 
reiniciard em segundos. Nesta opgao i facil dar um 
"BREAK" no programs para poder digitar "GOTO 
T000" e preparer uma aula diferente. 

Claro que voce pode preparar diversas aulas "diferen- 
tes" com PROFESSOR e armazenar cada uma, com 
seu respectivo nome, em fita. 

Se voce quiser armazenar o programa em fita sem aula 
alguma, sugerimos que apos ter entrado com ele no com- 
putador. armazend-lo em fita digitando SAVE "0 PRO- 
FESSOR". 

Quando, em outra ocasiao, voce quiser usa-lo para 
preparar uma aula entre LOAD "0 PROFESSOR" e 
apos te-lo no computador entre "GOTO 1000". 

Boa aula e boas notasi 

O 
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PROGRAMA DO LEITOR 



OTHELLO 



WILLIAM SHAKESPEARE 




Edson Mikio Yoshtda 
Nelson Murauaki 



Este programa foi originalmente publicado na revista 
japonesa "BASIC — jogos para calculadoras program^- 
veis" e foi adaptada para o TK para ser rodado em modo 
"FAST" (versao original para calculadora program^ve! 
FX-702P). 

objetivQ consiste em conseguir o maior numero de 
fortunas possi'vel, portanto, ganha aqueie que tiver 
maior niimero de fortunas em jogo ap6s o preenchimen- 
to das casas vazias (+) ou zerar o adversario dentro de 
um tabuleiro de 8x8. 

Para conseguir estas ■fortunas 6 necess^rio prensar as 
peqas do adversario e faze-lo entregar a voce, assim te- 
mos as seguintes regras 

a) So e possi'vel adquirir suas fortunas prensando uma 
ou mais pepas do adversario { Q ) em duas extremidades 
tanto nas diretas coma diagonals, digitando para issoas 
coordenadas onde voce deseja colocar a sua pega, pri- 
meiro na horizontal e depots na vertical o computador 
far^ mesmo ap6s a sua jogada. 

Exempio: 

X= ?4 depois NEW LINE 
Y = ?5 depois NEW LINE 

b) Caso nao seja possi'vel realizar o I'tem anterior, isto 6, 
fique sem sai'da, nao tendo lugar para colocar sua pega. 



^ necessdrio passar a sua vez, digite um numero negative. 
Exempio: 

X= ?-1 depots NEW LINE. 



1 REM EDSON MIKIO VOSHIDfl 
E 
NELSON HURRSSfiKI 

a D IM C * ( 16 , 8 ) 

3 i> Xti R « ( 3 , 3 ) 

4. LET F=a 

5 GOTO 97 

6 PRINT RT 16,3;" 

7 PRINT RT 17,ai"X=" 
S INPUT X 

§ LET Z=X+1 

10 GOSUB 31 

11 LET X=INT Z 

IS PRINT RT 17,2; "V=" 

15 INPUT Y 

14. PRINT RT 17,2;" 

15 LET Z=V+1 

IS GOSUB 21 

17 LET Y=INT Z 

IS IF Ha<X,V)="t" THEN GOTO 28 

l-S PRINT RT ll,S;"OUTRR UEZ" 

20 GOTO S 

21 IF Z<=© THEN PRINT RT il,S; 
■PRS^E 

22 IF Z<=0 THEN PftUSE 10e 

23 POf<E 164-37,255 
24. PRINT RT 11,5;" 
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25 XF Z i 

26 IF Z< 
S7 GOTO 
ae LET B 
29 LET G 
C30 LET P 

31 LET G 

32 PRINT 
■* ; Y - 1 

33 GOSUB 
3* PRINT 
35 GOSUE 
3S LET E 
37 LET G 
3a LET P 
39 LET G 
4.0 FOR S 
Al FOR R 
A2 LET X 
d.3 IF X = 
4* LET T 
*S LET V 
4-G XF R$ 

*7 IP 0= 

OMP. ";X-i 

*8 XF 0= 

4.9 NEXT 

SB NEXT 

Si FOR I 

52 FOR o 

53 LET E 
54. LET F 

55 LET M 

56 LET N 

57 IF 1= 
Q 59 

58 IF E+ 
EN IF F+a> 

GOTO 63 



1 THEN GOTO 36 
=a THEN RETURN 

$ = "0" 

RT X&^2; "UOCE 






51 

BT S j2; •• 
SI 
3l="0" 

$ = "H" 
= 1 

=0 

=1 TO IS 

=Q TO 1 STEP -2 

=UOL C*tS,R) 

9 THEN GOTO S 

=R-1 

='JRL CyCS.Ti 

(X,YJ="t" THEN GOSUB 5 

1 THEN PRINT fiT S.2:"C 

- " ■■ - Y — 3. " " 

i THEN GOTO SI 

R 

5 

=-1 TO 1 

=-1 TO i 

=X 

=V 

=x 

— V 

a THEN IF J=S THEN GOT 

I>=1 THEN IF E+X<=e TH 
=1 THEN IF F+J<=B THEN 



MICROCOMPUTADORES 

AD DATA Educa^ao e Infonnatica S/C Ltda. 

Cursos 

[iitrodu9ao a informdtica 
Programa^ao em linguagem Basic 
Nofoes de program a^ao estniturada 
Conceitos e recursos de equipamentos 

Pre f OS especiais para grupos fechados 
(empresas, associafSes, escolas, etc.) 



AD DATA Com^rcio e Servi90s de Informatica 

Fornecimerto de mierocomputadores e acessorjo; 
(TK85&JR.SYSDATA) 



Diagnostico para implanta^o de micrDcomputadores e sistemas 

de informapfo. 

Projeto e implantapao de Software especi'ficos (pacotes ou 

encomen dados) 



Rua JoSo RamaUio, 818 - Perdizes - Fone: 864-8200 
Sao Paulo 



59. NEXT iJ 

60 NEXT I 

61 IF ^^1 OR S) = l THEN RETURN 

62 GOTO 19 

63 IF 0$ tE + l..F+U) <>B* THEN GOT 
O 59 

64. LET E=E + I 

65 LET F=F+vJ 

66 IF £>=! THEN IF E < =S THE.M I 
F F>=1 THEN IF F < =8 THEN GOTO 68 

67 GOTO 59 

58 LET I>¥-0»iE,F) 

69 IP D¥<>B* THEN GOTO 71 

70 GOTO 64- 

71 IF D¥ = --+" THEN GOTO 59 

72 LET R$iX^Y>=GS 

73 LET H=M+I 
74. LET N=N+J 

75 LET T$=nf(H.N} 

76 IF f)$tH,N)=BS THEN LET a$ tM 
,. N ) =G S 

77 IF T$=B* THEN GOTO 72 

78 LET e=l 

79 GOTO 59 

50 PRINT HT 3 J. 17; ■"01234-5 

51 LET Y=a 

52 LET C=a 

83 FOR O-X TO S 

S4. PRINT RT J*a+3 . 15; J-i; 

35 FOR 1=1 TO S 

B6 PRINT " ■■;ft$tl.u>: 

87 IF R* (I^O> =-0- THEN LET Y=Y 
+ 1 

88 IF RJitI,JJ="B" THEN LET C=C 
+ 1 

89 NEXT I 

90 NEXT J 

91 PRINT fiT e,0; "SCORE; UaCE= 
" ; Y . ■■ COMP . = ** " c ■ " ■ 

92 IF Y=0 OR C=0 OR Y+C=64. THE 
N GOTO 123 

93 IF P=0 THEN PHUSE 300 
94- POKE 154.37,255 

95 IF P=0 THEN RETURN 

96 GOTO 6 



97 FOR vJ = l TD 

98 FOR 1=1 TO 

99 LET FI$tX^U) 

100 NEXT 1 

101 NEXT J 

102 LET R$t4. 



4.) 
5> 



103 LET 

104. LET 

105 LET 

106 LET 

107 LET 

108 LET 

109 LET 
lie LET 

111 LET 

112 LET 

113 LET 
114- LET 

115 LET 

116 LET 

117 LET 

118 LET 

119 LET 

120 LET 

121 LET 

122 GOTO 

123 PRINT 
NOURMENTE 
124- PRUSE 100es 

125 POKE 154.37 J. 255 

126 CLS 

127 IF INKEY$="S" THEN 
IPS STOP 

129 SnUE 'OTELLH'" 

130 GOTO 2 



F! * £ S 

R* t4. .5i ="0" 
Rt t5,4.J ="0" 
C$ tl) ="88118118" 
C$(23 ="66365333" 
C* C3J = ■34-65564.3" 
C* t4.> ="4.6355354-" 
C* f5) ="314.1S1S1*' 
C* t6) ="1314-1516- 
C¥ (-7) ="83S4-S5B6" 
C* tS) ="384-85858" 
C« t9) ="324.25262" 
C${10) ="374-75767'- 
Cttil) ="2324.2325* 
C$ C 121 ="7374-7575- 
C^C13) ="22777227" 
C¥ C 14.> ="12217162* 
C$(15) ="172B7SS7" 
ClJ tl6J ="99999999- 
80 
BT 21,0; "DESEJfV 
T (S,'N) "■ 



aOGRR 



GOTO 1 
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Este^ograma pode ser rodado'^om ^^ 

apanas IK de men»6ria. Com a utilizagao'; 

>te um $t{i^»Jo gfef ieoTgraphtc* 6) -'■ 
-"HUpostocm seis posr^^M^^iferentes, 
- formando s f mtat^^ docBWl^G . 

O I CHING ■« um^v^miWatma a prever jf 

E;te Itvro 6 difundido-em toidoVo round o; 
existem' adapta^oes e tradu^oes em 
dtversas linguas. £ consjderado uma d^s 
obras b^icas da lrt«f^t$>i^ chines<i^al£rl>^ ^ 
" ^ter inspirado as correotes riftt^Hi^ do - 
no e do confucioni^o. 
I reaTidade, o I QJhIING n3a pode 
fRoijder quern vai sarifitt' nl loteria nem 

'^over amantia. Mas'pode dar 
ITselhose su^rif reftexoes, aiudarKloas... 
pessoas a se decidirerti iobre o que fazw 
e que soiupoes escolher. 
As orjgens deste livro nao sao muiio 
Claras, mas o texto bSsico da obra foi 
elaborado p«lo rei Win e seu filho, o 
.. .Duque Chou, por votta do'ano 1150 a.Cr 
^ O livro 6 .f ormado de ^4 fignos, segujdos 
'de conmntdrios e sdgestSes jnra a sua 
intefprsta^ao. Paf^a,quem naa'estS muito 
. familiirizado com,o LCHiyG, as / 
respojtas e os corfsethos r>^m semprf sao 
facHrr)enieentertdidos.'£ necess3r|a uma 
interjiretapSp (ressoal de cada resposta 
enc6mrada. Segug^tnmM.ti^f^^. jc*f"ii 
res posta s f o r a m'soM^gaida^ atmt^s 9»- 
leitui'aTht.simbolps sncontMdjmioi^ 
cascosiias^rtaruciasf ■Jt~^ 
Como OS com«ntarf^-»-resp«tto dos 
si'mbojoiMi^rnuito extensos, ap&s o 
' ^,,y.ftra^ aff^( '0|^1) temoj^tpa pequeria 

■^ TI,Riaa1k«a4W B)<ptl 
pr^fa 
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DtCAS 




OMAPA 
DA RAM 
DOTK 



Esta materia originou-se de uma carta enviada pelo 
assinante Roberto R.Malcher (veja set;ao DESGRI LAN- 
DO na p^g. 4 ). Ao inv^s de respondermos rapidamen- 
te para eliminar uma duvida particular do leitor, resolve- 
mos explorar o assunto de maneira mais completa. 

A mem6ria do TK est^ organizada como uma pilha de 
bytes, cada um correspondendo a urn numero cujo valor 
est^ entre e 255. Cada posigao da memiria tern um 
endere<;o que vai de at^ um valor que depende da 
RAM dfsponi'vel no computador. Lembrando que 
1 Kbyte corresponde a 1024 bytes (2'*t e que a ROM 
do TK82 ocupa 8 kbytes, a RAM deveria come<?ar no 
enderego 8192. 

Por certas particularidades do projeto original os en- 
derepos de 8192 a 16383 nao sac acessados pelo sistema 
operacional, mas estao reservados para futuras expan- 
soes da ROM (o que j^ ocorreu, alids, no TK85). Isto 
stgnifica que o primeiro enderego da RAM ser^ 
8K+8K= 16x1024= 16384. 

Do enderepo 16384 ao enderepo 16508 estao armaze- 
nados os valores das vari^veis do sistema operacional do 
TK. Estes 125 bytes sac um pedacinho da RAM que a 
ROM usa para fazer o computador funcionar, A partir 
do enderego 16509 fica armazenado o programa. At6 
que enderego? Ora este valor 6 variivel, pois o programa 
que foi inserido na RAM pode ter varios comprimentos. 
Uma das vari^veis armazenadas nos 125 bytes iniciais 6 
justamente a que indica o enderego do byte seguinte 
Squele em que termina o programa. 

Lendo estas vari^veis, podemos determinar as frontei- 
ras entre uma regiao de membria e outra. 

fim da mem6ria, por exempio, 6 dado por uma va- 
ridvel batizada RAMTOP contida nos bytes de enderegos 
1 6388 e 16389. 

Num computador com 2K de RAM o fim da memoria 
est^ no enderego 18432, ou seja. 16384 + 2K. 

A vari^vel RAMTOP, entao, vale 18432. Como em da- 
da byte cabe, no m^ximo, um niimero at6 255 usa-se a 
seguinte convengao: o valor armazenado no segundo 
byte (no caso 16389) 6 256 vezes o numero nele con- 
tido. 



1 



PlerluiQj Piazzi 

Para armazenar, por exempio, o numero 19506 em 2 
bytes, devemos escreve-lo assim: 

19 byte= 50 
2P byte = 76 



pois, 



50 + 256x76= 19506 



valor da vari^vel RAMTOP para 2K, ou seja 18432 
deve entao ser escrito; 

1 o byte = 
29 byte = 72 

pois, 

+ 256 X 72 = 1 8432 

Experimente digitar no seu computador 



PRXMT PEEK ieSSCPCEK 1&3&9 



fio. 1 



vocedeverS obter: 




72 



para 2K de RAM. Se o seu computador ttver 16K de 
RAM voce obter^; 







128 



pots, 



+ 256x 128= 32768 



continiu 
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Lembrando que a RAM do TK comega no endere<?o 
16384, digits o programa da figura 2. 



Se voce tiver 1QK, obtera: 



20 LET Rfir1DISP=RRt1TOP- 3.6334- 
3© PRINT "R?^HTOP = '"; RflHTOP 
4e PRINT "RRM DXSPONIvEt_ = " ; RfiM 
DISPxiaSA; ■• KBYTES'' 

fig. 2 



RRM D15PONIUEL=lS KBYTE5 



fia. 4 I 



Se o seu computador for urn TK85 com 48K (RAM) 
ou um TK82 com expansao para 64K (ROM + RAM} 
voce devera obter: 



Se voce tiver 2K, obter^: 



RftHTOP=ie*33 

ROM DISPONruei_=£ KB%TES 



fig. 3 



RRM OXSPONXU£L = A-7.QQQ323 KBYTES 



fig-E 



Se voce nao obtiver este valor, leia a resposta a carta 
do Roberto na pag. 4 . Vejamos agora como esta orga- 
nizada a RAM, desde o endereco 1 6384 ate a RAMTOP: 



INICIO DA RAIVl 



INfCIO DO PROGRAMA 



DFILE 



VARS 



ELINE 



PILFUN 



PILFIM 



SP 



RAMTOP 



,^^-^°' ^""O^ 



opi 



'te 



SEMT 



Mf^' 



.9^ 



le LET ft=S 

£0 PRINT fl 

22 PRINT 

SS PRINT"fl="; ft 



j2 



B$ = "MICROHOBBY' 

DIM C$ 13,41 







GOSU© 

RETURN 

SOSUB 

RETURN 

QOSUB 

RETURN 

GOSUB 

RETURN 



USR 



VARlAvEISDO 
SISTEMA 



2 BYTES LIVRES 



PROGRAMA 



ARQUiVO 
DA 
TELADE TV 



VARlAVEIS 



1 BYTE CHS 2B 



LINHASENOO 
DIGITADA + 
ESPAQO OE 
TRABALHO 



pilhaspara 
cAlculos 



ESPACO OE 
MEMORIA 



PILHAPARA 

O MICROPROCESSADOR 



PILHAPARA 
ENDEREQAR 
SUBROTINAS 



ESPAgO QUE PODE 
SER RESERVADO PARA 
ROTINAS EM LINGUAGEM 
OE MAQUINA 



16384 



16509 



PEEK 16396 + 256 * PEEK 16397 



PEEK 16400 + 256 * PEEK 16481 



PEEK 16404 + 256 * PEEK 16405 



PEEK 16410 + 256 * PEEK 16411 



PEEK 16412 + 256 * PEEK 16413 



NAO ACESSIVEL EM BASIC 



PEEK 16386 + 256 * PEEK 16387 



PEEK 16388 + 256 * PEEK 16389 



fige 
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Estudando este mapa da RAM, vemos que temos va- 
rias maneiras de medir o comprtrrtento de um programa, 
ou a mem6ria necessdria para rod^-lo. Vsmos entao 
acrescentar atgumas linhas ao programa da figura 2 para 
ampli^-io at^ o indicado na fig. 7: 



lO . LET RMNTOP=paEK ie3e.S+25&»P 

EEK 163SS 

SO LET ftaMDISP=RRMTQP-lS3S4- 

3a PRINT "RftMTOP ='iRP)MTOP 

4-0 PRINT "RAM DISPONIUEL ="jRft 

HDI3P/ia24j ■' KBYTES" 

50 LET DFILE=PE;EK ie.336 -s-^'St-iPE 

EK 1&397 

eO LET PROGRRMfi-DPILE-1650S 

-70 PRINT -pROGRflMfi =";PROGRRMP 

- »• RVTE ^ " 

80 LET URRS=PEEK 164^00 +aSS*PEE 
K 164 01 

90 LET TELH=UttRS-DrILE 
100 PRINT "TELR =";TELfl;" BYTES 

fig. 7 



Ao rodar este programa voce obtera o indicado na fig. 
8, se sua m^quina tiver 1 ou 2K e o indicado na fig. 9 
se tiver mais que 3,5K de RAM. 



RRMTOP =1.3432 
RRM DISPONIUEL =2 KBYTES 
PROGRRMR =366 BYTES 
TELR =81 BYTES 



fig. 8 



RRHTOP =32-7SS 

RRM DISPONIUEL =16 KBYTES 

PROGRRMfl =366 B'^TES 

TELR =793 BYTES 



tig. 9 



Isto ocorre porque o sistema do TK tenta economizar 
o m^ximo de RAM quando esta ^ pouca {menor que 
3,5K). truque usado consiste em armazenar no arqui- 
vo da tela apenas o que est^ impresso, nao consumindo 
memoria com espa^os vazios (fig, 10). 

Isto gera um cuidado, ao medir um programa elabora- 
do para um computador com 2K ou IK, fazer isto com 
a expansao desconectada. 

Finalizando, vamos resumir como medir a mem6ria 
utilizada: 

1 ) MEMORIA OCUPADA so PELO PROGRAMA: 
PRINT PEEK 16396 + 256 * PEEK 16397 - 16509 



2) MEMORIA OCUPADA PELO PROGRAMA, VARIA- 
VEtS, TELA E VARIAVEIS DO SISTEMA: 

PRINT PEEK 16404 + 256 * PEEK 16405 - 16384 

3) MEMORIA AINDA DISPONfVEL (incluindo a pilha 
para o microprocessador): 

PRINT (PEEK 16386 + 256 * PEEK 16387) 
-(PEEK 16412 + 256' PEEK 16413) +87 

Note que somamos 87 bytes, correspondentes ao 
comprimento do proprio comando direto, 





ARQUIVq^ 

COIVIOxxxxxxxxxxxxxxxxxxxx ' 
ECONOMIZARxxxxxxxxxxxxx 
MEMO R I Axxxxxxxxxxxxxxxx) 
xxxxxxxxxxxxxxxxxxxxxxxxx: 
xxxxxxxxxxxxxxxxxxxxxxxxx: 
xxxxxxxxxxxxxxxxxxxxxxxxx: , 




fig. 10 
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Prof. Wilson Jorf Tucci - CoonlBnador de Projatos EtpBciaisda Eicpra Exparlmantal Puari Dotnut. 



Apresentando os Apple 

A Microhobby ^ a revista dos usu^rios do TK, um ex- 
celente computador para nos iniciarmos e explorarmos 
o mundo da computacao. Entretanto voce pode estar 
pretendendo comprar um computador ma is sofisticado, 
ou que voce, senhor Executive, tenha em sua firma tal 
computador. Per isso estamos abrindo uma nova secaio, 
que vai tratar do mais popular, e um dos mais sofistica- 
dos, computsdores dos Estados Unidos, o Apple, do 
qua! j^ existem diversos similares no Brasil. 

Sao muitas as diferengas entre o TK e o Apple, vamos 
aqui, procurar explicar algumas. Ao longo das publica- 
Qoes iremos 'destrinchando' o Apple. 

No-campo do Hardware sao essas as maiores diferen- 
pas entre os dois computadores: 





TK 


Apple 


Memdria 


2K-64K 


16K -64K 


Processador 


Z80, 2.56 MHz 


6502, 1.023 MHz 


Tela 


controlado pelo 
proces.=;adQr 


controlada por 

circuitos 

especializados 


GrSficos 


baixa resolupao 
preto e branco 


baixa e alta 
resolugao, coloridos 


Caracteres 


alfanum^ricose 

grdficos 


aifanum^ricos 



Embora o m^ximo de memoria RAM do Apple seja 
'normalmente' 64K, existem circuitos espectais para ex- 
pandi-la ainda mais. 

Para quern nao sabe, o sfmbolo MHz quer dizer mi- 
Ihoes de ciclos par segundo, e indica a velocidade com 
que 'anda' o processador. Uma instruggo tipo 'soma' do 
6502 pode ser feita em dois ciclos, isto &, o 6502, pro- 
cessador do Appte pode realizar at^ 500,000 somas por 
segundo. A mais longa instrupao do 6502 leva 7 ciclos. 

Como voce j^ deve ter percebido, entao, o 65(32 corre 
mais devagar do que o 280, e, alem disso, tern menos re- 
cursos; mesmo assim, o Apple 6 mais rapido que o TK, 
pela segulntes razoes: se voce ]ci abriu o TK, voce \& viu 
que ele tern poucos CI's, portanto o Z80 tem que fazer 
quase tudo, inclusive controlar o video (porque no mo- 
do FAST nao tem video?), jci no Apple existem cerca de 



100 circuitos integrados para ajudar o 6502, e portanto 
microprocessador so tem que se preocupar quase que 
exclusivamente em executar o programa; alem disso, o 
BASIC do Apple 4 mais sofisticado, e roda de uma ma- 
neira mais eficiente. 

Infelizmente o Apple nao traz todos aqueles caracte- 
res graficos que o TK tem, tanto em alta como em baixa 
resolucao, ele so 'plota' um quadradinho, mas as cores 
e a alta resolugao compensam em muito a falta de carac- 
teres graficos, 

Existem outras importantes diferengias entre o TK e o 
Apple estao no campo do 'Software', ou programas. 

BASIC do Apple se chama Applesoft, e embora to- 
da a logica do programa e 90% dos comandos sejam 
identicos, existem as seguintes diferenpas: 

1} Enquanto no TK basta digitar uma tecia para apa- 
recer o comando, no Apple 6 prsciso digitar o comando 
letra por letra. 

2) comando LET nao e obrigat6rio, ou seja, 6 v^li- 
do apenas digitar: 

II A = 5 

3) Podemos colocar mais de um comando numa mes- 
ma linha, bastando separ^-los com ':' 

15 ft = 5jB = 15:PR1«T fl + B 

OBS.: Cuidado se for juntar comandos IF . . . THEN, 
^ melhor nao faz6-!o. 

4) No Apple comando NEW apaga toda a memoria 
(de programa e de vari^veis), CLEAR apaga as varidveis 
e HOME apaga a tela. Isto e, HOME corresponde aos 
CLSnoTK. 

5/ Nao existe o comando EDIT no Apple, para modi- 
ficar uma linha de programa usamos o modo ESC. 

6) Embora tamb6m existem os comandos PEEK e 
POKE no Apple, e eles executem a mesma acao que no 
TK, OS efeitos nao sao os mesmos no Apple, poiscomo 
voce talvez ja saiba, os efeitos dos PEEK'S e POKE'S de- 
pendem muito do Hardware de cada computador e co- 
mo ja foi mostrado, os dois sao bem diferentes neste 
ponto. 

7) Applesoft nao verifica linhas de programa quan- 
do de sua entrada, portanto os erros de sintaxe so sao 
detectados quando rodamos o programa. Uma lingua- 
gem alternativa para o Apple, ^ que geralmente vem com 
a unidade de disco 6 o Integer BASIC, que verifica a sin- 
taxe de cada linha na sua entrada, como o TK, mas, em 
compensacao nao trabaiha com numeros reals, apenas 
inteiros, como o nome j^ diz. 
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8} No Applesoft nSo hd necessidade de se dimensio- 
nar uma vari^vel 'string' antes de guardar caracteres nela. 
Por exempio, enquanto, que no TK fariamos: 

1 t>IM R$t263 

£ LET RS= ■flBCDEPSHIvJKl-MNOPQRS 
TUUUXYZ" 



No Apple basta fazer: v 

i fll^'ftBCDEFeHIJKLHNDPeRSTUVtliyZ' 

Podemos no Apple tamb^m fazer matrizes 'string', 
e nesse caso, cada elemento da matriz podeassumir um 
'string' inteiro. 



EKempl o: 



1 DtH At(lf,t«) 

2 AI<1,2)='NEU NDUE" 

3 fli(i,3)='E' APPLE* 

4 ftt(4,5)='S£U NONE' 

5 Al(8,9)='£' JQflO" 



TATUZAO 



Esse pequeno jogo tern como ftnalidade, al^m de en- 
treter, introduzir o leitof 'as possibilidades gr^ficas do 
APPLE II, e ensinar algumas t^cnicas para facilitar o de- 
senho e sua movimentagao, 

Nesse jogo o computador esconde um 'tatu' em algum 
lugar de um terrene quadriculado de 100 por 100, e o 
jogador deve tentar adivinhar a posipSo do 'tatu' at6 en- 
contr^-lo, 

Apos cada tentattva o computador in forma ao joga- 
dor que diregao seguir para encontrar o tatu, quando o 
tatu ^ encontrado, ele § desenhado na tela, e aparece o 
numero de chutes que o jogador usou para achar o tatu. 
computador entao pergunta se quer jogar de novo. 

Para se achar o 'tatu' nesse jogo 6 precise conhecer 
duas coisas: os pontes cardeais e colaterais, e sistema de 
coordenadas x, y. 

£ assim que o campo quadriculado esta organizado 
nesse jogo: 



v> 












(0,99) ! 










(99,99) 














Y! 




rty ^ 


_, , x_ 




— "^ r 
















V 

S 




____,..„ ...._»_i_ "s 














W, 


0) 






X 


(99,0) 



O centro do quadriculado ^ o 50,50. Voce deve ir 
chutando as coordenadas de acordo com as indicagoes 
do computador. So na primeira vez e que nao h^ indica- 
gao nenhuma. Lembre-se que devemos sempre entrar o 
X antes do Y (^ so lembrar da veiha aula da geometria). 

Obviamente esse programa nao oferece a animagao de 
um 'defender' ou 'commander', mas em compensagao 
pode ser facilmente entendido {acompanhe os 
REMARKS). 

A principio da t^cnica para se poder desenhar e mo- 
ver facilmente uma figura 6 a seguinte: 

Guardamos os dados necessaries para e desenho da fi- 
gura numa matriz (linha 100). Todos esses dados ssio re- 
latives a uma posigao, no caso o centro da figura. Ap6s 
determinarmos o ponto onde queremos que fique o cen- 
tro da figura (variSveis XP e YP) executamos a subrotina 
540 (ou 580, se for para desenhar o 'tatu'). Essa subro- 
tina le OS dados da matriz respectiva, e desenha. Na ver- 
dade cada dado para desenho consiste de quatro nume- 
ros, pels como voce j^ deve ter netado essa matriz exe- 
cuta um HPLOT de um ponto a outro. A t^cnica de exe- 
cutar HPLOT's de um ponto a outro ^ bem mais r^pida 
e exige bem menos dados nes comandos DATA do gra- 
var cada ponto do desenho na matriz. Para se apagar 
uma figura, simplesmente a redesenhamos na mesma pe- 
sipao, so que em preto. 

Essa t^cnica 6 bem gerat e se aplica a muitoscompu- 
taderes, s6 que no caso de nao ser possi'vel o recurso de 
desenhar uma linha de um ponto a outro, deve-se guar- 
dar todos os pontes do desenho (relatives a algum refe- 
rencial), e trocar a linha 540 para: 

m FOR I = I TO TH STEP 2: 

HPLOT HP + PHKI + n,YP + PHKIh 

NEIT I: 

RETURN 

use de matrizes inteiras se justif ica por essas usarem 
bem menos mem6ria do que usariam matrizes de ponto 
flutuante, 

Nas proximas publica(;:oes veremos m^todos especiais 
do APPLE para desenhar e fazer animapoes de figuras, 
tao rapidos como os jogos de fliperama que voce conhe- 
ce. Aguarde. . . 



* • 
• • • 

• « • 

• •• 
« * 



• • • 
« # « 

• * i 
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9 m tn TATUZAD ttt 

31933 FOR DENTRO DO APPLE 

If REM DIHENSIONAR AS MATRIZES 

2» REM PU --> PQNTDS DO TATU 

38 RE« PHI "> PDNTOS DO HOMEK 

48 REM fit "> DIRECOES 

58 DIM pn(2»e),PHH2ea) 

bi RE(1 LER MftTRIIES D£ PONTOS 
7» R£n DO HDHEM E DO TATU 
88 REM TT --> TflMANHO DO TATU 
19 REM TH --> TAMANHO DO HDMEH 
m READ TT.TH: FOR I = I TO TT: 
READ PTIil)! NEKT I: FOR I = 
1 TO TH: READ PHZd): NEtT I 
! FOR I = 1 TO B: READ fttd) 
! NEIT I 
Hi REM GERAR AS COOflDENADAS X,Y 

128 REM DA POBICAO DO TATO 
130 REH E INICIALIIAR CONTADOR 
14B TEIT : HOM£ : HGR :tl = INT 
( RND ni t 100h¥T = INT ( 
RND (!) t m):^ = 9 
15> REH POSICIONAR CURSOR E 
m REM BERAR ](P,YP INICIAIS 
178 REM PARA EVTTAR ERRO 
18§ VTAB 22: JP = 5«:YP = 5« 
178 REH ENTRAR NOVA FDS1CA0 
288 REM DO H0HEH,APA6AR A VELHA 
218 REN DE5ENKAR A NOVA ,E 
228 REH INCREHEMTAR CONTADOR 
238 INPUT -ENTRE )( E V (DE 8 A 9 
?t ■;l(,Y:t: = K + 1:Y = ')9 - 
V. VmM= 8: GOSUB 548:J(P = 
K t 2 + 48:YP = Y + 38! HCOL0R= 
3: BOSUS 548: IF NOT ((X = 
KTI AND lY = YT)} SOTO 348 
248 HONE s VTAB 22: PRINT "PARAB 
EHS VOCE ACHOU TATU ": PRINT 
•EM 'jKi' VEZES": PRINT 
258 REM DETERHINAR OS PONTOS 
268 REM PARA DESENHO RELATIVQ 



278 REM DO TATU 

188 REM E DESENHAR TATU 

298 XP = IP + 15: YP ' YP + 15: BQSUB 

568: REM DE5ENHA TATU 
388 GOTO 458 

318 m, INICIO DE COMPARACOES 
J28 REN PARA DETERMINAR DUE 
338 REM DIRECAD EST A D TATU 
348 IF a = H) AND (Y < Ylt THEN 

J = 4: SOTO 448 
358 If (X = XT) AND (Y > YT) THEN 

J = 1: GOTO 448 
368 IF it < STl AND (Y = YTI THEN 

J = 7: 60T0 448 
378 IF « ) XT) AND (Y = YT) THEN 

J = B: EOTD 448 
388 IF (X > XT) AND (Y ) YT) THEN 

i = 3: GOTO 448 
398 IF )X > XT) AND (Y < YT) THEM 

J = 4 
488 IF 

J 



4i8 

428 
438 
448 



458 



468 



478 



4B8 
499 

588 



GOTO 448 
(X < XT) AND (Y < YT) THEM 
5: EOTO 448 
IF (I < XT) AND (Y > YT) THEN 
J = 2: GOTO 441 
REM IMPRESSAO DAS 
REM ORINTACOES AD J06AD0R 
HOME : VTAB 21: PRINT 'VOCE 
ESTA EH ■;Xi',";99 - Yi PRINT 
'VA PARA -jAitJ): FOR I = 1 TO 
580: NEIT : GOTO 238 
PRINT 'BUER J DEAR DE NOVO ? 

(S/N) •;: INPUT "iRI: IF LEFTl 

(R«,l) = 'S' THEN 148 
TEXT : HOME : VTAB 5: PRINT 
TAB! 5)'F0I UM PRAZER": VTAfl 

18: PRINT TAflt ISl'JQGAR CO 

M VOCE'; VTAB 15: PRINT TABt 

25) "APPLE II' 

[;OLflR= 10: HLIN 8,39 AT 8: VLIN 

#,47 AT 39: HLIN 8,39 AT 4t; 
VLIN 8,47 AT « 

REM ESPERflfi PGR UNA TECLfi 

IF PEEK C - 16384) < 123 THEN 

490 

POKE - !63ie,8: HONE : END 



518 REM SUBROTINA SUE DESENHA 

520 REM HOKEM EM RELACAO 

538 REM AO PONTD XP,YP 

548 FOR I = 1 TO TH STEP 4: HPLDT 
XP + PHKl + 1),YP + PHKI) TO 
XP + PHUI + 3),YP + PHUI + 
2): NEXT I: RETURN 

550 REM SUSROTINA PARA DESENHAR 

568 REM TATU EH RELACAO 

578 REM AO PONTO XP.YP 

5B0 FDR I = 1 TO TT STEP 4: HPLOT 
XP * PTK! t 1),YP + PTKI) TO 
XP + PTKI + 3},YP + PTKI + 
2): NEXT I: RETURN 

598 DATA 40,132: REM NUMER05 
DE DADOS PARA DESENHAR TATU 
£ KOMEM 

688 REM BLOCO DE DADOS PARA 

610 REM DESENHO DO TATU 

620 DATA -4,-2,-4,2,-3,-3,-3,3, 
-2,-4,-2,4,-1,-8,-1,5,-3,-6, 
-2,-6,8,-10,0,6,1,-11,1,7,2, 

5,4,-4,4,2,4,3 

REM BLOCO DE DADOS PARA 

REM DESENHO DO HOREH 

DATA -15,-3,-15,2,-14,-4, 

-14,3,-13,-5,-13,4,-12,-4,-1 

2,3,-11,-3,-11,2,-18,-3,-10, 

2» ■')"!! ''t^f'S,-!, -B, 8,-7, - 

4,-7,3,-6,-6,-6,5 

DATA -5,-7,3, -7, -5, -6,3, -A, 

-5,5, 0,10,-5,6,1, 12, -5, -4, -5 

,3,-4,-4,-4, J, -3,-4,-3, 3,-2, 

-4,— A,J,-l,-4j-l,i,IJ,"4,ff,J, 

1,-4,1,3,2,-4,2,3,3,-4,3,3,4 

,-4,4,3 
670 DATA 5,-4,12,-4,5,-3,12,-3, 

5,-2,12,-2,5,1,12,1,5,2,12,2 

,5,3,12,3,18,15,9,17,9,17,7, 

19,6,19,5,20 
608 REM DIRECOES A SEBUIR 
690 DATA NORTE, NORDESTE,NGR0EST 

E,SUL,SUD£STE,SUDOEST£,L£STE 

,0£STE 



638 
640 
658 



660 



CALENDARIO PERP6TU0 



Quantas vezes acontece de precisarmos de um calen- 
dirio antigo, de alguns anos ou mesmo meses str^s e, 
por um motive qualquer, nSo encontrarmos nenhum 
por perto? Quem nunca perguntou a si mesmo aigo co- 



mo "Em que dia da semana vai cair o Natal no ano 
que vem?" programa que apresentamos este mes pre- 
tende auxiliar os leitores que j^ tiveram uma duvida co- 
mo essa, permitindo-lhes ver, na tela do seu compu- 
tador, calend^rio complete de qualquer mes e ano, e 
tamb^m servir de base para quem qutser aplicar atgumas 
das tecnicas b^sicas usadas no programa. 



J 
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« m It CALENDAR ID PERPETUO tt 



11983 POR DCHTRO DO APPLE 



II HOHE : VTAB 5: HTAB If: PRINT 

■CflLENDflfilO PERPETUO' 
2< INVERSE : VTAB 21: PRINT TAK 

7i;"DIGIT£ '»,»' PftRA TERNIN 

fifi"; rflB( 41}}! NORHAl 
Se VTAB 12: HTAB 1: PRINT 'DIGIT 

E NES £ AND, SEPARADQS P 

OR Uflft": VTAB 14: INPUT 'VIR 

6ULA (EJEflPLO: 6,l?i5l: ' 

jHES.ANO: IF NES = I AND AND 

= f THEN HONE : ENS 
48 RESTORE : FOR 1 = i TO NES: READ 

nES*,NDIflS: NEJT hMEBt = «E 

S« t • • + STR« (AND) 







131 


VTAB 4: HTAB 2# - LEN (NES* 
1 / 2: PRINT RESt: VTAB 8; HTAB 


S0 


RE« AND BISSEKTO? 




B: PRINT -D S T B 


i» 


IF NES = 2 AND INT (ANO / 4) 




S S": PRINT 




= AND / 4 TWEN NDIflS = 2? 


140 Dlfl = ! 


n 


REN CALCULAR EM DUE SIA Cfll 


150 


HTAB 4 t N M: PRINT DIA; 




priheiro do mes. 


160 SIA = BiA 4- 1: IF DIA > NB1A5 




f^DtiniNEf, l^EESUNDA... 




THEN 200 


u 


IF KES < 3 THEN NES = HES M 


171 N = K + 1: IF N > 6 THEN PRINT 




2:AH0 = ftNO - I 




: PRINT :N = « 


n \ 


( = M 2 « NES + INT (,6 t ( 


1S0 


GOTO 150 




NES + !)) + ANO t INT (ANtJ / 


19« 


REN ESPERAR POR UNA TECLA 




4) - INT (AMO /!»•)+ INT 


2»» 


IF PEEK t - 16384t < 128 THEN 




(ANO 1 m\ + 2:N = IKT (IN 




2«0 




/ 7 - INT IN / 71 ) t 7 + . 


210 


POKE - 163ii8,«: GOTO If 




5): If M = « THEN N = 7 


220 


REN DADOS DQ PROGRAMA 


1«# N = N - 1 


230 


DATA JANEIR0,31,FEVEREIRO,2 


m 


REN HOSTRAR CALENDAR 10 




S,NAftC(l,31,ABRIL,30,NAIO,31, 


n% 


HONE 1 C0LOR= 11: HLIN «,37 AT 




JUNHa,3f,JULH0,31,ASaSTO,31, 




8: VLIN 0,47 AT 39: IJLIN #,3 




SETEnBR0,3e,O(lTUBflD,31,NDVEn 




9 AT 46: VLIN «,47 AT i 




BRD,30,DEZEHBRO,31 



programa comega pedindo o mes e o ano e pro- 
curando, atrav^s do "loop" da linha 40, o nome do mes 
e numero de dias neste. No caso de se tratar do mes de 
fevereiro de um ano bissexto (divisi'vel por quatro), o 
numero de dias 6 corrigido para 29. A rotina definida 
petss linhas 80 a 100 fazem o calcuio do dia da semana 
em que comega o mes em questao. 



CHEGA DE 
ESQUENTACAO 









-vr^ziri 



Software 

pronto para ser usado. 

Programas de uso pessoal ou eslrilamenie profissional; 

Cadastres, Banco de Dados, Loca^cies, Contabilidade, Contas a Pagar 

e Receber. Editor de Texto, Conta Banciria, Mala Direta, Visicalc, 

Com role de Estoque. 

E para o programador; Editor Assembler, Compilacbres Basic e Cobol... 

e jogos, que niriguein e de ferro. 
Todos em portugu&s, gravados em casscttf ou diskette, com manual do 
usuano, extremamente priticos. 
Es tamos ao seu atcance. 

Confira. Solicitando por teletone ou no reuendedor de sua cidade, rda^ao 
de programas disponSueis. 

mOnK micro inform&tica Itda. 

R. Augusta, 2690 2? andar - Loia 318 
Tel. (OU) 8S2-2958 - cep 01412 SP 



monk, ., 

o soitware que faz vocS ficar'^^ 

feliz por ter um micro. /^|^^^ 




A Ifnha 120 mostra uma maneira interessante (e r^pi- 
da) para cotocar na tela caracteres repetidos. Podemos 
obter eTeitos diferentes usando outras cores, "ptotando" 
em linhas pares ou I'mpares ou na vertical, ou usando 
combinagoes de linhas adjacentes. Mais adiante, o com- 
putador entra num cicio para coiocar na tela os nume- 
ros nos seus lugares corretos. Terminando o programa, 
temos uma sequencia de duas linhas (200 e 210} que 
prendem o computador num loop at^ que o operador 
pressione qualquer tecla. 

Finalmente, uma dica para quem quiser usar a f6r- 
muia da linha 90 em seus programas, para calcular o dia 
da semana de um dia qualquer: substitua o "1" no int'- 
cio da f6rmula pela vari^vel "DIA" (N = DIA + 2 * 
MES. . .). Nao se esque^a de incluir a linha 80, queefe- 
tua um ajuste nas vari^veis M£S e ANO para os meses 
de Janeiro e fevereiro. 

TWO-LINERS 

Um dos nossos amigos mais proximos 6 o Tic Fred 
List. E um velhinho simpdtico e um apaixonado hobis- 
ta em computagao. Entretanto, o Apple do nosso que- 
rido tio apresenta somente 0.6K bytes de mem6ria de 
programapgo e necessita de alguns programas para ele. 
Eis aqui um desafio. . . Vamos ajudd-lo. 

No BASIC usado no Apple (Applesoft ou Integer) ^ 
permitida uma instruipao de mijltiplos comandos, des- 
de que eles venham separados por dois pontos; e as- 
sim, as instrugoes: 

II HONE 

20 PRINT -ISTO £■ UN TESTE' 

3f PRINT 

40 FOR t M TO 10 

5* PRINT !;■ "; 

iA NEXT I 

7« PRINT "FIN" 

80 END 
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podem ser escritas em uma unica I in ha: 

l» HOflE : PRINT MSTO E' UN TESTE": 
PRINT ! FOR I = 1 TO 10: PRINT I; 
• ■;: NEXT I: PRINT 'flN': END 
Entretanto, uma linha so aceita at6 255 caracteres. . . 
cu idado! 

Para o desafio dos TWO- LINERS vamos estabelecer 
algumas regras: 

todos OS programas devem ser escritos em Applesoft 
ou Integer BASIC e nao devem ter mais que duas linhas 
de programapao; 

nao h^ limites para o numero de multiplos comandos 
ou comprimento de cada linha, desde que, evidentemen- 
te, a linha possa ser digitada diretamente pelo teciado. 

Favor enviar, para a apreciagao do nosso staff, uma 
copia legi'vel do seu TWO-LINER. Essa copia, que nao 
sera devolvida, podera ser usada peio departamento co- 
mo e quando o julgarmos necess^rio. 

Os programas serSo julgados com os seguintes crit6- 
rios: 

a) impacto que o programs apresenta ao rodd-lo. 

As decisoes do staff do POR DENTRO DO APPLE 
sao semi-finals. Tio Fred List tem a ultima palavra, 

PREMIOS: 

19 colocado: um livro sobre apples. 
29 colocado: uma foto do Corinthians 
39 30 9P colocados: ainda nao decldimos 
109 colocado: uma foto do Tio Fred List 

Els aqui dois exemplos feitos por Mark Bachman e 
Christopher Voipe: 



Te V»>° ""' 






Inicia^ao ao Basic para jovens de 10 a 14 ano$ 

— duragao 20 horas auia. 

Introdupao a linguagem Basic duragao 20 horas 

aula. 

DOS 500 (DISC OPERATION SYSTEM) 

Duragao 30 horas aula. 

Oferecemos tambem, curso de Introdugao a 
Linguagem Basic por correspondencia, 

Turmas limitadas de 6 alunos, com atendimento 
individualizado, na qua! o aluno aprende utilizan- 
do um microcomputadar. 

Alem dos cursos, a C.P. Systems oferece virios 
programas de jogos e aplicativos, para microcom- 
putadores como D-8000, TK82-C, CP500 e simi- 
tares. 

Nossos precos sao bem convidativos. 

C.P. SYSTEMS S/C. LTDA. 

Av. Paulista, 2.073 - eonj. 1.212 - Ed. HorM I 
CEP.: 01311 - Fone: 25B-54S4 
Sao Paulo - SP 



m ! FOR Z = t TO II STEP .2: 
FOR I = B TO IB STEP .2: HCOLDR= 
3!Y = - 1» » CDS (3 » SQR 
(a - 5) '* 2 + (Z - 5) * 2)) 
/ 2 + 5i: HPLOT J I 2* + 21 
+ ? I 3,y + 2 t II 
HCDLOR= I: HPLOT I t 21 + 2S t 
Z t 3,Y + Z I 11 + 1 TO I t 
2# + 2«+ I t 3,181: NEXT : NEH 
: END 



wiu,^ 



■.-U'X!- 






■ : '. '■ ^"K:- 



'fe;:-:^-: 



■•■'■•V-l'V-o^-' 



,^^>^ 



:' f\-'.^^^'^w>»A.-'.-^'^! ■■ 



1 HI = 'ItZiftH 52 CI AD 51 CI fl9 

22 Efl Efl Efl Efl 21 AO FC AD 5 
I CI A? 47 3E M M 3E 99 U 

3£ «l II 3E II 10 3£ tt M 
3E II II 3E II II 3E II II 3 
E II 10 3E tt l# 21 A8 FC K 

ib 13 N 3136' 

2 FOR I = 1 TO 31: PRINT "PAGINA 

m DE TEHO 
C = 1 TO LEN 

+ C, flSC ( K1D« «H*,C,1)I + 
128: NEXT : CALL - IM 



•;: NEIT : FOR 
(HI); POKE 5U 



Ja vimos OS exemplos, portanto, maos ^ obra e 
enviem os seus programas para: 



MICROHOBBY 

Se^ao: Por Dentro do Apple 
ex. POSTAL 60081 



SJAf F : 



Jas4 Eduardo Morairs 
Danial H. Falconer 
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FITA DOMES 




/v 



FUNgOES I 



A fita FUNCOES I e comercializada pela MtCRON de 
Sao Jose dos Campos (av. Sao Jofo, 74) e tern come 
principal finalidade a de ampliar o sistema operacional 
do TK com algumas funpoes adicionais extremamente 
Citeis, Vem acompanhada de urn manual que, se peca um 
pouco pelo aspecto grafico, compensa isso amplamente 
pela boa diddtica empregada nas instrugoes. 

Ao ser carregado normalmente o programa )A sai ro- 
dando apresentando menu da fig. 1 . 

PLfNCOcs tnXTRRs 
PRINT USR 3e4.4.0 



?IB fl D OR ^&- P-^tS^mW^-M R 



INCt-UR NO PROGRRMfl; 

L.ET L=USR 334.65 

£ e(_e SETRfl RPlhlGRDO DESTR 

t,INHR OTEH O FINRL 



ieRS&e^R- ■C'E'-'C^MffR'S 



INCl-Uft NO PROGRftMR ; 

X REM =»« 

a LET L=U3R 32^00 

3 LIST 

XHPORTRNTH; LIWHR 1 REM CGNTEM 

a ESPi=iC.OS, X GRAF ICO > 1 ESPRCO , 

USE POKE 1.65 3. e.. 3. OU 5 OU 10 . 



C'XGITE New 



fiR. 1 



Apos ler as instrugoes, o usu^rio deve digitar NEW: 
programa se auto-carrega no ultimo Kbyte dos 16K de 
RAM. 

Para testar a fita carregamos no computador o pro- 
grama MINIINVASOR com o programa RENUME- 
RANDO "enganchado" no fim (publicados, ambos, no 
numero 1 da MICROHOBBY). 

A primeira tarefa da fita FUNQOES foi a de eliminar 
programa RENUMERANDO do fim do MINI- 
INVASOR. 

Como programa MINI-INVASOR termina na linha 
U35 e RENUMERANDO comeca na linha 9959, bas- 
ta entao acrescentar a linha 

a.l.3S LET U = US.R 32465 



e a seguir 



GOTO 1 136 



Em poucos seggndos o RENUMERANDO em BASIC 
desaparece, deixando apenas o programa MINI-IN- 
VASOR. 

A seguir testamos o RENUMERANDO da propria 
fita (em ASSEMBLY), Para isso devemos acrescentar 

1 REM 

a LET L,=USR 33000 

3 LIST 

A linha 1 REM deve contar 4 espat^os em branco. 
A seguir devemos comandar 

c>OKE ISSIS^N 

onde N e Q incremento que queremos dar aos enderegos 
da nova renumeragao ate 20 no mdximo}. Como o MINI- 
INVASOR estava renumerado de 5 em 5, alteramos para 
que o fosse de 20 em 20. 

POKE 1S51&., 20 

Rodamos o programinha (com RUN), obtemos a re- 
numeragao desejada num tempo incrivelmente curto! 
Isso ocorre porque, ao contr^rio do programa RENU- 
MERANDO em BASIC que publicamos no numero 1, 
este e em linguagem de maquina. Finalmente, para saber 
quantos bytes foram consumidos pelo programa basia 
digitar 

PRINT USR 324.4.0 

Esta retina pode ser alterada fazendo-se 

POKE 324-4.4... ft 
onde A deve assumir os seguintes valores: 



A = 2(J: consume de programa, video e 



variaveis 



A = 28: idem acima mais pilha de calculador 
A = 12: so o programa (volta ao original) 

Em resumo, esta fita cont^m uma ti'pica rotina "fer- 
ramenta" extremamente util para programadores. Sua 
utilidade ficou evidenciada quando percebemos que ela 
entrou no dia-a.dia dos nossos anatistas de SOFTWARE 
aqui na redagao. ^ 



■ 
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Nos da MICROMEGA PUBLICAQOES E MATE- 
RIAL DIDATICO LTDA., editora da revista MICRO- 
HOBBY convidamos todos nossos leitores e assinantes 
a visitar nosso espaco na III Feira da Informatica a se 
realizar de 1? a 23 de outubro, no Parque Anhembi, 
em Sao Paulo. 

Na ocasiao ser^ distribuida uma tabela-brinde espe- 
cial aos novos assinantes. Os assinantes antigos tannb^m 
poderao retirar este brinde, entregando, na feira, a eti- 
queta de enderegamento coiada no envelope deste nu- 
mero 4. 

Aiem disso, no nosso stand vamos apresentar uma 
s6riB de novidades para o TK: a nossa final idade 6 a de 
incenttvar pequenas empresas a produzir perif^ricos e 
acess6rios para o TK, ampliando cada vez mais sua uti- 
I idade e desempenho. Vamos ter tamb^m sorteios inte- 
ressantfssimos, demonstragoes de novos equipamentos 
e lanpamento de livros para TK. O 



A Memphis, empresa paulistana, li'der no mercado 
de suprimentos para computadores, vem se projetando 
e se firmando h^ 14 anos em todo o Territorio Nacional. 

Com a finalidade de manter o seu maior lema "Produ- 
tos de Qua! idade a Pre(;:os Justos", e para melhor aten- 
der a sua exigente clientela e a todos os seus amigos e 
liabituais fornecedores, acabou de mudar sua Matriz 
para um moderno pr^dio situado k Av. Angelica, 35 no 
bairro de Santa Ceci'lia, com uma area de 4.000 m^ , 
contando com ampio estacionamento. 

Nesse local estarao funcionando os Departamentos 
Administrativo, Financeiro, Estoques, setor Fabril e 
tamb^m o C.P.D. (que a partir de agora agtlizar^ ainda 
mais o atendimento aos clientes). 

Departamento de Vendas continuard atendendo aos 
seus clientes em seus escritorios ^ Av. Arnolfo de Azeve- 
do, 108 - Pacaembu pelo telefone 262-5577 em Sao 
Paulo e no Rio de Janeiro a Praia do Flamengo, 65 gru- 
po 1.519 pelos telefones 205-3849 e 225-3469. 



"Novo ABC dos Computadores" de Allan Lytel e 

Carlos Alberto M. Marques, e o mais recente langamento 

da editora "Antenna" (C.P. 1131 - Rio de Janeiro - 

CEP; 20001). £ um livro especialmente escrito para as 

, O 



NOVIDADES 



pessoas que desejem ingressar no mundo da informatics, 
seja com final idades profissionais, seja para quern possua 
ou pretenda possuir um microcomputador, prestando-se 
igualmente, aos autodidatas, e, como livro auxiliar, nos 
cursos de iniciagao ao Processamento de Dados. 

Compoe-se de 12 capitulos: Computadores Digttais e 
Analogicos — Numeros para computadores — Operagoes 
Aritm^ticas — Logica Simbolica — Circuitos Logicos B5- 
sicos — Multivtbradores — Contadores — Circuitos Cai- 
culadores — Circuitos Integrados - Armazenamento de 
Dados - Dispositivos de Entrada e Sai'da - Programa- 
gao. £ redigido em linguagem acessivel aos iniciantes, 
constando de 176 p^ginas, com bastante ilustragoes, no 
formato 13,5x21 cm. £ vendido nas boas livrarias ao 
prego de Cr$ 3.500,00 o exemplar. o 

A Computronix, uma loja de microcomputadores de 
Belo Horizonte est^ lanpando o teclado profissional para 
o TK82-C e NEZ 8000. Trata-se de caixa em madeira 
Qu fibra de vidro que comporta o aparelho, a expansSo 
e a fonte internamente, operando-se em teclado tipo 
IBM e um vt'deo 12" por cima da caixa. Maiores infor- 
magoes: tone: (031 ) 225-3305. q 

A MICRODIGITAL langa o TK83, versao sofisticada 
do TK82-C. Seu desempenho como computador^ iden- 
tico, tendo as mesmas caracten'sticas operacionais de seu 
antecessor. Do ponto de vista est^tico, por^m, ele apre- 
senta um "design" muito mais moderno e funcional. 
A nova caixa 6 mais resistente, tornando os circuitos in- 
fernos menos vulneraveisa pressoes mecanicas. "hard- 
ware" foi redesenhado impticando num projeto mais ele- 
gante e compacto. 

Com esse langamento, a MICRODIGITAL mostra to- 
da a conf ianga que deposita na antiga m^quina, dissipan- 
do de vez os lemores de "obsolencia" apresentados por 
alguns usu^rios quando do langamento do TK85. 

TKB2, agora 83, veio para ficar durante muito tem- 
po, ainda: a relagSo desempenho/custo i ainda (e parece 
que ser^ por muito tempo) a mais elevada do mercado 
nacional. 

Num mercado com muitos "cadiMacs" enfeitados, um 
"fusquinha" terd sempre uma grande aceitagao, especial- 
mente numa ^poca de economia em contengao. 
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Vendo esquema completo do microcomputador 
IME28000 (com SLOW e expansao de memoria) — 3 c6- 
pias heltogr^ficas. Cheque nominal de Cr$ 6.000,00 pa- 
ra JAN MARTIN LUND, Rua Frederico Ozana, 16/21 - 
11 WO- Santos - SP. 

Troco ou vendo programas (nacionais e importados) 
para os micros; CP-200, TK82-C e 2X 81. Possuo o Si- 
mulador de Voo, Turbo, Galaxy e muitos outros jogos 
e aplicativos. Tratar com Eduardo Medeiros - R. Eliseu 
Guitherme, 1076 - Ribelrao Preto - SP ~ CEP: 14100 
~ Atendo tamb^m por reembofso. 

Vendo ou troco programas de jogos para TK82-C e 
TK85. Tratar com Edson, R. Guariba, 54 — Sao Paulo — 
Tel.: 918.0998(0/ Ruth). 

RADIO MICRO: primeiro grupo de r^dio amadores 
digitals do Brasil convida todos os radioamadores a co- 
nhecer os projetos de hard e soft que estamos desenvol- 
vendo, aos interessados entrar em contato com PY2-EMI 
Renato Strauss - R. Cardoso de Almeida, 654/32 - 
05013 - Sao Paulo - SP. 

Colocamos vfdeo-reverso em televisores TX-Philips, 
lazemos adaptagoes de TV's para monitor de video e 
vendemos kits de vi'deo-reverso. Lu/z Wellington — Tel: 
224-2776 - Fortaleza/CE. 

Vendo programas nacionais e importados, 2K e 16K, 
BASIC, e ASSEMBLER para micros TK82-C e similares 
(Aceito trocas) - Carlos A. Sclaretti — Cx. Postal: 5567 
- Sao Paulo/SP - CEP: 01051 ~ tel. : 522-8586. 



Curso de Linguagem de mdquina para TK82 e TK85 
(ASSEMBLY Z80). Aos sdbados das 9:00 as 13:00 hs. 
- Sao Paulo — Fone: 813-4555 (Marcia) a tarde. 

Servigo de Datilografia - IBM. Teses, apostilas e ma- 
nuals t^cnicos. Telefone: 258-8486 - America - SP. 

Conversor do NEZBOOO para SLOW: Em Sao Paulo, 
WILSON DE ASSIS faz a inclusao desta funipao no 
NEZ8000 por CrS 20.000,00 (mais as despesas de em- 
balagem e correio) e da a garantia de 6 meses. Se oseu 
enderego for proximo ao dele, ele entregarS em casa. 
seu telefone i: (Oil) 203-7967 e o endere^o: Rua 
Fabricio Correia, 145, Tucuruvi, 02311 - Sao Paulo — 
SP. 

Sou possuidor de muitos programas para o TK82. Os 
interessados em trocci-los escrevam para Marco Aur^lio 
Dias de Oliveira - Av. Afonso Pena, 1557 - Bloco B - 
apto. 214- Campo Grande/MS - CEP: 79 100. 

Troca de programas para TK - Carlos Hor^cio C. 
Fontenelle - R. A I feu Aboim, 770 - Aldeota - Porta- 
leza -CE - CEP: 60000 

ESPlAO - Jogo de Aventura para TK e CP-200. Um 
desafio a sua Mem6ria e Habilidade. 16K com SLOW. 
CrS 5.000,00. Pedidos pelo reembolso para Cx. Postal- 
28 - 27200 - Pirai - RJ. 

Vendo NEZ 8000 com expansao de 16K - Tenente 
Dilson - Tel. : (06 If 224- 1839 - Brasilia - DP. 
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COMO COLABORAR 
COM MICROHOBBY 



A revista MICROHOBBY foi criada para servir de in- 
tercambio entre os leitores que participam do m^gico 
mundo da computapao. 

A caracTerfstica realmente inovadora do computador 
pessoal, esta em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas colabora- 
(poes, recebendo remunera(;ao a ti'tulo de DIREITO 
AUTOPAL 

Se materiai enviado for aprovado para publicagao, 
a remunerapao sera de Cr$ 10.000,00 por programa, Se 
programa for muito bom e muito extenso esta quantia 
sera aumentada, a crit^rio da redacpao, at6 Cr$ 30 000,00. 
Esfa remuneragao sera oferecida tamb^m para artigos 
interessantes sobre o mur^do do TK 

A maneira ideal de nos enviar o material a ser publi- 
cado obedece as seguintes normas: 

DNunca esquecer de colocar nome completo, enderego 

e numero de sua assinatura em todo material enviado (f i- 

tas, [istagensde impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me- 

Ihor ainda, tirada na impressora do TK 

31 Colocar sempre uma linha REM com o nome do aulor 

e titulo do programa. 

4) Enviar uma fita com o programa gravado algumas ve- 
zes (se possi'vel em gravadores diferentesl. 

5) Na fita, gravar com microfone (em viva voz), algumas 
instrucoes uteis, nome completo e enderego do reme- 
tente. 

GERACAO HUMANA NO TK 

Antes que o leitor se assuste com visSes tipo "Admi- 
r^vel Mundo Novo" pedimos a leitura da parte final da 
carta que o Roberto R. Matcher de Obidos {Par^) enviou 
^Se(;aoDESGRILANDO. 

A proposta, pelo que pudemos entender, consists 
basicamente em se ten tar estabelecer uma correlagao en- 
tre data de nascimento da mae, dos filhos e o sexo 
destes. 

Para quern achar absurdo, queremos lembrar que h^ 
alguns anos foi realizada na Franca uma pesquisa que 
tentava correlacionar o Q.I. de criancas com outros fato- 
res. Verificou-se uma corretaqao estatisticamente signifi- 
cativa entre o Q.I. e a 6poca do nascimento: criangas 
nascidas no comego do inverno tinham um desenvolvi- 
mento intelectual significativamente superior. Foram le- 
vantsdas muitas hipoteses (chegou-se at^ o absurdo de 
se falar em horoscopol). A explicatpao na realidade e 
bem simples: no inverno europeu os pais ficam mais 
tempo em casa e essa maior convivencia 6 tremendamen- 
te importante para o futuro desenvolvimento mental do 
bebe. 

Par isso pedimos a todos os leitores que tirem uma 
xerox da tabela anexa (para nSo recortar a revista) e a 
enviem preenchida para: 




material nao utilizado nao sera devolvido Esta e 
uma norma corrente em quase todas as revistas do mun 
do, que gera porem, uma certa desconfianpa: "e se apa- 
garem meu nome do programa e o publicarem sem me 
remunerar?" 

Neste ponto podemos sugerir o seguinte: 

Ac enviar o material para qualquer revista, voce, ou 
confia em sua seriedade, ou, e melhor nao enviar o ma- 
terial, reservando-o para uma publicapao di'gna de seu 
credito, 

Uma outra sai'da e a de tirar uma copia de todo ma- 
terial enviado e registra-lo em cartorio, para qualquer 
reclamagao posterior. Obviamente tal procedimento s6 e 
aconselhavel se o material enviado for valioso a ponto de 
justificar todaessa mao-deobra. 

6) material deve ser enviado para: 

MICROMEGAPM D. Ltda. 
PROGRAMASDO LEITOR 
Cx. POSTAL. 60081 
CEP- 05096 -S PAULO -SP 

7) Qualquer diivida, poderd ser esclarecida pelo teiefone: 

(01 1 ) 257-5767 com Roberto. 
Aguardamos sua colaborapao. 



C.R.M. 

CP43 

68250 Obidos PA 



Pesquisa Geracao Humana 

Nasc: Dia M6s Ano_ 

Mae 



Sexo , 



19 Filho. 
2P Filho- 
39 Filho. 
49 Filho- 
59 Filho_ 
69 Filho. 



Obs.: Incluir evenluais filhos falacido* ou abortoi. 



o 
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O FANTASMA 




come moedas fazendo uma lament^vel confus3o emre 
piano espiritual e piano material. 

Para se movimentar no salao (tenebroso) do castelo 
voce deve usar as tec las 5, 6, 7 e 8 ou o mddulo de co- 
mando (Joystick}. 

Ac ter sua alma congelada pelo fantasma, aparecer^ 
a quantia coletada. 



le 


LET S=0 




20 


Cl_5 




30 


INPUT R 




4.E 


LET Q=l 




se 


LET U=l 




ee 


LET R = INT CRNDtT-} +1 




7© 


LET E=INT (RND*7> +1 




&& 


FOR F~l TO 19 




se 




100 


NEXT F 




lie 


IF INKEV* = -P*- THEN GOTO SB 




120 


PRINT RT O.. U.: "B" 




130 


IF PEEK tPEEK 16398 +2!56*PEE 





Voce est^ no tenebroso salao de um castelo mal- 
assombrado. Voce conseguiu achar um tesouro e as moe- 
das estao espalhadas no chao. Antes que o fantasma do 
castelo gele sua alma pecadora, voce deve catar a maior 
quantidade possi'vei de moedas (as da moldura nao 
podem ser recothidas). 

Apos digitar RUN voce deve escolher o grau de difi- 
culdade, entre ,01 (dificil) e .99 (fdcil). 

O programa roda usando menos de 1 K de RAM em 
SLOW. 

fantasma e um pouco gag^ e, enquanto o persegue, 



K 163993 =:155 THEN GOSUB 33© 

14-0 LET Q=0+ tINKEY * = ■■&" fiND 3<S 

> - tXNKEV*="7" RND 0>1) 
ISa LET U=U+ (INKEY»="8" RND U<S 

-1 - t INKEY* = -5" RND UilJ 
lea IF 0=R RNO U=E THEN GOTO Se 

a 

170 IF RND-cn THEN SOTO llO 

1S0 PRINT RT RjE;CHR$ 11 

19© IF PEEK (PEEK 16398+256 *PEE 
K 16399) =iaS OH 1S5 THEN PRINT R 
T R,E; "■■■ 

SO0 LET R=R+ tOiRJ - tQ<RJ 

ai0 LET E=E+ tU>E} - (U<EJ 

230 GOTO 110 

a30 LET S=S+1 

24.0 PRINT AT O . U : "B" 

2SO RETURN 

260 PRINT 3 



1 



O que voc§ 

deve fazer para 

realmente 

entender de micros? 

Uma assinatura de 
MicroMundo. 




Veja so o que voc& H^ ^ 

enconfra em cada "" 

exemplar de 

MicroMundo: 

Noticias... Dicas de 

Compra... Benchmark 

(andlise e testes de 

equipamentos)... 

Ldngamentos de 

Hardware e Software... 

Analise de Software... 

Pontes (programas 

para todos os tipos 

de micros)... Tecnicas 

& Tecnicos (macetes 

classicos em Cobol)... 

CP/M & Cia... 

e mois, muito mois. 



Faga come quern 

entende - csslne 

MicroMundo. 




( Certificado especial de assinatura j 



SIM desejo receber 12 edifoes do MicroMundo (um ano) 



Nome. 



Cargo_ 



Empresa, 



Enderefo . 



Tel. 



CEP. 



. Cidade 



. Estado 



O cndcreh;a acinia e □ meu cnderevo parliciilar 

'—"""""'•'"'" Dendcrt^vo de minha empr«a 

CW6 - CofnputarwoflEl do Elf»ftil> S*rvi$Di t PwbliCAfS** Ltd*. 

R.a RL.aAii:.rvdQG<j*n.MMri ^np'^nd C«fJ003l TtJ 10311 )AOe??S Tiki> 71 3f«3fl Wcxd HR 

S*ciP*uto iRudC^wi* 7S Ji'd-m Pauiiili CE'^0l40e Ttl 101 II SBT-eSH TtHim 1 I 370IT Wo'd 6n 



Envio antxcs chjfque nominal a 
MicroMundo no vaior dt Qf^ f 2Q0 QQ 
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CURSO DE ASSEMBLY 

aula 3 



31501 
311.0 
^£71 fit's 



leoiiiiia 

XlllS lOQG 

mi Tqi0llll 

j.EnOlOl" 

J0©S01'" 
^11110*" 

£>0iS0ei' 

^11103 
.lelile" 
11101F 
e©G (3 1 »SS HV3 1 etJ 

000 103 lies 10 
soaeioesoBisi 



.,J©0©0011to 
11G*11031013. 

J 10© a aeia: 

511S£ 11Q©S 

i©i0G me' 

•^0111x01 IS' 

^©oaosaii 
yi3iae*^'~*'« iiai. 

©112.^ '©111 
ills 0G00 

aisec -tie 11 

~i00Q©0iia0i0f 

"^iioieiiii^' 



,.J.01ilSlt.. 


^0£J10BiailE*<- 


e<3i0p * 


■ 10110 


1.0110 


1010- 


ieeo3 


10113 


SGiec 


30102 


109SS 


ii00e 


S0J.04 


ISIGI 


100 1£ 


1001C 


10111 


0110' 


0111 J. 


.1.1011 


■»0illl01O0S' 


' 11100013 ' 



Flavio Rossini 



PROGRAMA HEXAMEM: ONDE COLOCAR OS 
PROGRAMAS EM LINGUAGEM DE MAQUINA 

Um bom lugar para colocar os programas em lingua- 
gem de m^quina e no fim da memoria RAM pois, como 
j^ dissemos, o ini'cio da memoria RAM e reservada para 
colocar as vari^veis do programa interpretador, o progra- 
ma BASIC e suas variaveis e a tela de TV(Veja p^g. 23 ). 
Entre as variaveis do programa interpretador est^ uma 
chamada RAMTOP que indica o fim da mem6r)a do 
computador, ou seja, nos registros da memoria corres- 
pondentes a essa vari^vel o programa interpretador colo- 
ca enderepo que seria do byte imediatamente apos o 



EM OUTUBRO 



3IVI0V1DADES 
TPLAK 




lOPLAK: Placa In/Out, transforma o seu TK numa 
central de comando programado, com 8 entradas 
e saldas. Controla reISs, motores, trenzinhos 
el6tricos, etc. 

BIPLAK: Placa Bip, assegura teclagem correta por 
aviso sonoro. Pode ser programada para assinalar 
passagens de jogos, agoes de programas e muito 
mais. 

CARAPLAK: Placa de Caracteres, produz os 
grafismos que V. quer e os introduz em qualquer 
programa. E um sucesso rta microcomputagao dos 
E.U.A. e da Europa. 

Escreva hoje mesmo, informando qual 6 a placa 
TplaKdo seu interesse, para receber informaqSes 
mais detalhadas. Isso Ihe assegura um brinde 
especial, que V. receberS depois, quando fizer sua 
encomenda. 



Envie sua carta para: 



INFORMAqOES TPLAK 
A/C R.G. 

Rua Joao Ramalho, 1 276 
CEP 05008 Sao Paulo SP 



ultimo byte de memoria. Esta variavel est^ colocada nos 
endere?os 16388 e 16389, pois sendo ela um enderego, 
tem 16 bits devendo entao ser "quebrada" em duas par- 
tes para poder ser armazenada, armazenando-se antes o 
byte MEMOS significative (esta regra 6 usada para todos 
OS dados de 16 bits!). Assim digite: 

PRINT PEEK 16388 + (256 * PEEK 16389) 
{NEW LINE) 

(Consults a aula 1 em caso de duvida) 

Voce obtem o valor de RAMTOP que depender^ de 
quanta memoria voce tem disponivel. Se voce tiver a 
expansao de 16K (suposigKo que ser^ v^lida para todo o 
curso) devera obter: 

RAMTOP = 32768 {'8000' em hexadecimal) 

o que significa que o enderego do ultimo byte da memd- 
ria 6 32767 ('7FFF' em hexadecimal). 

Vamos, entao, "enganar" o computador e modificar 
o valor esta variavel com o intuito de reservar o fim da 
memoria RAM para la colocarmos os programas em iin- 
guagem de m^quina, sem prejudicar o resto da memoria. 

Por exempio, fagamos RAMTOP = 30000 (7530' em 
hexadecimal), lembrando que devemos colocar antes o 
byte menossigniftcativo ('30). Digite: 

POKE 16388,48 (48 = '30' em hexadecimal) 
(NEW LINE) 

POKE 16389,117(117= '75' em hexadecimal) 
(NEW LINE) 

NEW 

(NEW LINE) 

que corresponde a fazer 

RAMTOP = 256 • 117 + 48 = 30000 

(verifique isto usando novamente a fungao PEEK para 
obter o valor de RAMTOPI, 

Deste modo voce reservou a memoria 30000 at6 
32767 para colocar seus programas no computador, suas 
variaveis e o conteudo da tela de TV NUNCA irao inva- 
dir esta regiao por "pensar" que a memoria termina no 

eontinut 
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LANQAMENTO 



PASSAaEM PABA INTINITO 

Sensaclonal JogQ onda voce Lentari enQontrsir a SMf cflm um fa&UlOSCa teiMUfO em am 
complexo IbtJirifibo. guird&ao por lemveis polvu^ n^DndbroB. e com mass de 4CXJ pas- 
HOB Para a.JudA-lc, vdcq canlara cnmi &lgur[i&$ esp&das, qua gar&ntir&p 9U& jScibrsvL- 
VifinclA na lutft com 05 monatrua. -& COvn as pnaidilelrCB enciLfCer&daB noE. v^rlas pas 
aqganaque ]he tndicar^ DciiminhG a seguiir Tot^lnnenla em Ungljagerd. di m6n:tuU\a- 
com ^I'iflcoB f antas C ic&TDsn le &nLm3idoB e trfis niv^^ de dificuidade pbra desafia to 
Prsco Qr* 7 000.00 



MIDWAY 



iTmagrantte^uerra mundsalesLa sttiitiu Lrivida nOrS iguaa dn AtlfittUCo Vocsftgorse 
cnmandante do au&m&fina a.L6mico MTDWAV. sua miESio dastruir todbs &s bosas 
inimigaseiTii4ftuftS bronS-ilear&E Cuidadthcom as naviDs, aviAes e TTimasespalhaidDs p*- 
ioA mvftsopfls Papa, luxsllklo poderi conlar com uma Trota de nauios ds raabaatocl 
menw, vifjas baeea abiardafi o um qompuiador de bordo Um gfafifle cJesano coRigri- 
fieoH. e virias rotin»s em linguajjern de m^qutn^ Pre^o Cr* 5 000 00 



JORNADA UM E8TR£IJ18 



A SUB nava irLLtr^larieuarii t.NTP.EPRISE rLecaasila iLvriJ' a g&l^HiA doa mvasoroB 
Khiigtm. e vi>ce_ como coniindiriT* .la uai/e. C*i^4 a irdya missio de deatryi l<is Um 
jogo famoEo no mundrs ttudu em uma desuaa me] hares vflr^Oos polaSofthnaHan, com 
efeiHoH gr&ficDS BensacionBuJS Pre^a Crt 5 OOO.OC 



a* DIMZNSAO- 



fcgora VDcfijA pode Lerum niperamaem &eu m.Lcrocamp',;ta.dicir emZ* DlMENSAOdois 
}ogDaa£iitadiiesim[>s para aetAf sua cc^nrddri^gjui nK>Ujra Er:i SPACE INVADER vo<« 

iemQaDrigsnB.Jsi[rivasDre&&t&[:andDSUB nave e em ASTEROID VDc6devepou&aremum 
pSanetae, para l*tiUnd.ev&ra,uH,r4pQ3&4roB0&SlACijioS que weem a sua f rente tenlando 
ds-atrui id Grandta jio^osam Lingua^amile mfLquma Pit^qo Crt ^ 000,00 



VtBIIA AO CASSIHO 



^u&LrD grftndee JO^OS em um SC ca^a mqueis. rotela, Si. e perseguL^Au riial ra?.em 
parttdBHte BanBacionalcon}unto Tfjdos osjogoscom grftf tooee r^Mifiasem linguagem 
do m^quma. para voce que goEUideapoBiare torcer Preco- Cr| 5 000.00 



- 10 JOaOS BXCIIABTTES FARA 1 K- 



D8Z paquflnoB jDgOB pira voce incrsinenuir e aprerider basianie vs efettuB da progra 
ma^&O de jO^OS d IrabaLhaacam video Se vdc6 n&DdiBpC« da expiansAo de IBK J4 poda- 
rHflr«nLpeten!m«ritocom*6t4 8*naaC]tmalfil4 Se vrwJiJidiBpiede 16K compre para 
lncreiTTg«rLL4-lofi v lertLBxcHienUs jDgoB FrBQLt. Crt 4 OOQ.OO 



Corppi'* co'nesco de ouiiEiuer parii dt Br^^ii serr^ 
i]EiOE5ds 3Ciriffnais envt^noQ jm cneijue Lfii/i 

prettsa viiari e garania d rscstumeniQ de m^w 
mrormaliva fJOVJD^^DtS KBiSI^AN loi^imenie 

{|ra1uj:IO 



Rua da Lapa, 120 grupo 505 

Tels. 2S2 9057 333 5948 

CEP200ai Hlode Janeiro RJ 



Todoeas fiLas v4oem«m&ala^m Lfccr^da, c&mgravaif&DprofteaionaL. pa ra fua faraa- 
Ua. A XriatLan irooari qualquirfl tact tie ^Ja ^nvlada, com defeltoa dfl Fabrlca^Ao 



enderepo 29999 ('752F' em hexadecimal}. Note, tods- 
via, que esta regiao NAO sera afetada pelo comando 
NEW e nao pode ser passada para a fita atraves do co- 
mando SAVE. Esta ultima limitagao 6 desagrad^vel e 
mais adiante veremos como contorn^-la. 
(OBS.: case voce nao tenha expans^o de mem6ria use: 

POKE 16388,173 
POKE 16389,67 
NEW 

para reservar a regiao de 1 7325 a 1 8431 ). 

Vamos, a seguir, apresentar um programa em BASIC 
que coloca na memoria RAM um programa em lingua- 
gem de maquina elaborada em codigos hexadecimais a 
partir de um enderego inicial fornecido por voce, Lem- 
bre-se de reservar espapo no fim da mem6ria antes de 
colocar programa: 



POKE 16388,48 
POKE 16389,117 
NEW 



{NEW LINE) 
(NEW LINE) 
(NEW LINE) 



A seguir coloque HEXAMEM no computador e vamos 
introduzir alguns codigos hexadecimais (que por 
enquanto nao significam NADA) dentro do compu- 
tador! Cada codigo deve ser seguido de NEW LINE, e o 
programa termina ao introduzir-se a letra P (PARE). 



O ENDERECO X 
( > =30000) " 

INICIRL = ".: 



PROG. 1.1: HEXAMEM. 



1 REM FLRUIO ROSSINI 

5 REM HEXf^MEM 

IS FR5T 

iS POKE i&36S . 4-© 

a© POti.E l&3S3.il"7 

25 PRINT ■■ ESCOL.hr 
NXCIfll. DR" 

3© PRINT "MEMORIR 

35 INPUT IN 

43 PRXHT 

45 PRXHT "MEMORIR 
IN 

50 L.ET IN1 = IN 

55 LET R$="" 

&S SCROL.l_ 

65 PRINT "MEM. " ; IN; 

70 IF Rt = "'- THEN INPUT R* 

75 IF R*="P" THEN STOP 

ea IF RSI = "XS" THEN GOTO 0130 

SS IF Rji = "XF" THEN GOTO 0135 

se LET HUXel&*CODE R$+CODE R» ( 
a> -476 

95 LET X¥=5TR* tl6*CODE fl*+COD 

E Rt C2) -47&} 

100 GOSUB 0200 

105 PRINT THB 13.; C»; B* ; TRB 34; R 
fi TO a};TRB (31-LEN X*);X« 

110 POKE IN-RUX 

115 LET IN=1N+1 

12S LET fi$=R*(3 TO ) 

1S5 GOTO 006© 

130 SLOW 

135 CLS 

140 PRINT HT 3.B;U3R INI 

145 STOP 

200 LET 1=1 

205 GOSUB 0500 

210 LET I=a 

215 LET Ct=Bft 

3.5.3 GOSUB 0500 

aaS RETURN 

500 IF H¥£I)=:"0" THEN LET B* = "0 

505 
001" 

51© IF RJ tl) = '2" 
310- 

SIS 
011" 

520 IF R$i {I> =' 



IF a$tl)="l" THEN LET BS="0 

THEN LET Bt="0 

IF Rj:tl>="3" THEN LET B* = "e 

'4." THEN LET B* = "0 



SaS IF RS(I)="5" THEN LET B$="0 
101" 

IF R*(I) = '6" THEN LET B*=:"0 



THEN LET B*=*0 
THEN LET B1i = '-i 
THEN LET B»="l 



530 
110" 

535 IF R<|> til ="7" 
111" 

540 IF R» t I) =-S" 
000" 

545 IF R^ f I) ="9" 

a©i" 

S50 IF RStIJ='n" THEN LET B»="l 
010" 

555 IF fl$tll="B" THEN LET Bt="l 
eil" 

55© Tr' R*ll>=-C-" THEN LET Bt = "S, 

S&5 IF RJtI)="t>" THEN LET B* = "l 

570 IF RttIi="E" THEN LET Bjs" 1 
11©" 

575 IF fi$tI>="F" THEN LET B*="l 
ill" 

5S0 RETURN 

5'&5 STOP 

600 SR^JE "HEXRH^I" 

510 PRINT "DIGITE BRERK E LIST" 

©20 PRUi/E 30© 

63© GOTO 600 
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VERBATIM 



PRODUZIDO NA ZONA FRANCA 
DE MANAUS SIGNIFICA: 
QUALIDADE COM 5 ANOS 
DE GARANTIA E O MELHOR 
PREpO DO MERCADO. 



ENTREGAIMEDIATA 



DATALIFE ' diskettes sao produzJdos com uma unica 

preocupacao: o armazenamento de dados sem erros. 

Esse comprometimento requer precisas tecnicas 

de producSo e rigoroso controle de qualidade. 

DATALIFE ' diskettes 8 ou 5 1 /4 poiegadas tern 

certificagao 100% sem erros. 

A diferenca DATALIFE " e pura e simplesmente qualidade. 



FD34SO00 


simples face.-' simples densidade 
26seiores 128bvieS''SfitO! 8 poiegadas 


FD 34 8000 


simples face..''dupla dansidade 

Nao setoruado nSo formatado 8 poiegadas 


DO 34 4026 


dupla tace/dupla densidede 

26setores 256 by les/ set or 8 poiegadas 


DO 34 4001 


dupla face/ dupla densidade NSo setonzaOo 

nao tormalado 8 poiegadas 


Entrega a partif de selembto 1 .983 


MD 525-01 


sinnples face, dupla densidade 
5 1/4 poiegadas 


MD5E001 


dupla face /dupla densidade 51/4 poiegadas 



Em embalsgem 
Caixas plisticas 



de cariao com 10 unidades 
Opcionais 



Revendedores e Fabricantes interessados: 
td: (Om 262-5332 



PARA ENCOMBNDAS FOR A DE SAO PAULO. 
A MEMPHIS PAGA A UGACAO. 

DISQUE(0l1i80O-8462 



Distribuidor: IHemplliS 

Industria e Comercio Ltda. 

Av. Arnolfo de Azevedo, 108 - Pacaembu - Sao Paulo - Brasil 

CEP 01236 - PABX (Oil) 262-5577 - Telex (Oil) 34545 

Filial Rio: Praia do Flamengo, 66 cj: 1519 Tel: (021) 205-3849 - 225-3469 

Matriz: Av. Angelica, 35 - Sta. Cecilia - Sao Paulo - Brasil - CEP 01227 



OBS.: Se voc§ NAO tiver expansao de memoria, substi- 
tua a linha 30 por PRINT "MEMORIA" {> = 17325)", 

retire as Itnhas 95,100 e de200a 580, substituindo a li- 
nha 105 por PRINT TAB 13; A$ (TO 2); TAB 17;AUX. 

Este programa fornece, tambem, uma "visual iza^so" 
da memoria do computador na tela de TV da segutnte 
maneira: 



MEM. 


N? DA MEM. 


CONTEUOO 


CONTEUDO 


CONTEUOO 




EM 


OAMEM, EM 


EM 


EM 




DECIMAL 


binArio 


HEXAOeCI- 
MAL 


DECIMAL 



Experimente, entcfo colocar alguns n°s hexadecimais 
na memoria a partir do enderego 30000. Lembre se que 
cada enderego da memoria corresponde a 1 byte de da- 
dos. Partanto, voce deve entrar sempre com um numero 
par de di'gitos hexadecimais, caso contr^rio, o programa 
parard na linha 90. Assim, entre, por exemplo, com o se- 
guinte:(N,L. = NEW LINE). 



RUN (N.LJ 




Mem6ria inicial 


: 30000 (N.L.) 


A4 


(N.L.) 


B70412 


(N.L.) 


06 


(N.L.) 


71FDA1 


(N.L.) 


00CE 


(N.L.) 


P 


(N.L.) 



Na tela, voce deverd obter: 



HEH. 


3@@SQ 


1310010© 


R4- 


164 


HEM . 


30031 


10il01il 


87 


133 


MEM. 


33S5QS 


00330100 


04. 


4. 


MEH. 


33903 


000 100 IB 


12 


la 


MEM. 


3QQ(Sit 


00000110 


0S 


6 


MEM . 


;S©0Q5 


01110001 


71 


113 


HEM. 


30ee>6 


11111101 


ro 


253 


>5EM . 


3QG07- 


10100601 


fii 


161 


MEM. 


3QQQ8 


00000000 


00 





HEM . 


3®©©9 


11001110 


CE 


20e 


MEM. 


303 X© 









Com isso, voce colocou estes dados da memoria 
30000 ate a memoria 30(309. Vamos verificar se o pro- 
grama funcionou. Acrescente, agora, o seguinte progra- 
ma: 



30O0 REH UERMEM 

3005 SLOU 

3010 PRINT "FIM = ''■' 

30 IS INPUT FXM 

3020 FOR 1=30000 TO FIM 

3025 SCROLL 

3S30 PRINT "MEHQRlfi- . I; " "jPE 

EK I 

3035 NEXT I 



NOTA: Se voce n§o tiver expansao de memoria, substi 
tua a linha 3020 por: 

FORI = 17325 TO FIM 




PROG. 1.2: VERMEM. 



Execute-o fazendo RUN 3000 (ou GOTO 3000 ). 

Coloque para a variavel FIM o valor 30009 (17334 
sem expansSo), pots colocamos 10 di'gitos hexadecimais 
na mem6ria. Ao executar o programa voce dever^ obter 
OS numeros previamente colocados, mas em DECIMALl 
Portanto, teremos: 



memOria 
mem6ria 

MEM6R(A 

memoria 
MEm6ria 

MEMbRIA 
MEMdRIA 
MEMdRIA 

mem6ria 

MEM6RIA 



2mm 164 

30001 183 

30002 4 

30003 18 

30004 6 

30005 113 

30006 263 
30«O7 161 
30003 
30009 206 



= -A*') 
= 'B7') 
= 'M') 
= -12') 
= '•61 
= •71'! 
= 'FD'I 
= 'Al'l 
= •«•■) 
= CE') 



rapre$entaf io em hexadecimal; vejs os codigot previamenM colocados! 

repita este procedimento para outros numeros hexadeci- 
mais ate voce entender o que esta acontecendo. , . 

Note que estamos apenas colocando os codigos hexa- 
decimais na memoria e mesmo que esses codigos (A4, 
B7, 04, 12, etc.) significassem um programa em lingua- 
gem de maqutna, providencias especiais seriam neces- 
saries para executar o programa. 

Estes codigos podem representar um programa em 
linguagem de maquina, colocado a partir da memdria 
30000. Por exemplo, o codigo 164 (A4 em hexadeci- 
mal) poderia significar: some os proximos dois bytes 
(183 e 4); o codigo 18 (12 em hexadecimal), compare 
resultado com o pr6ximo byte (6) e assim por 
diante. . . 

Note que NAO existem enderegos para as linhas de 
programa, como em BASIC, e as instrugoes sao executa- 
das na sequSncia em que foram colocadas na memoria. 

Com todoE esses "por^ns", quais seriam, entao, as 
vantagens da linguagem de maquina com relagao ao 
BASIC? 

A linguagem de mciquina e tnuito mals r^pida e permi- 
te um VISUALIZAgAO e um CONTROLE maior do 
sistema. Em contrapartida, suas instrugoessao mais sim- 
ples e limitadas e exigem um cuidado maior na hora da 
programagao. 



EXERCICIOS 

1. Analise o funcionamento do programa HEXAMEM, 
exceto as linhas 1 30. 1 35 e 140. 

2. Analise o funcionamento do programa VERMEM. 
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If" 



INTENSIVaO 

>ll\IGLO 



»it 



EXATAS, BIOMEDICAS e HUMAIMAS 
MANHA, TARDE e NOITE 



conselho 

de 
amigo X4 



Infcio 77 de outubro 



Rua Tamandare, 596 - Liberdade - SP 
Tel.: 279-7022 - P.A.B.X. 
Rua Sergipe, 58 - Higienopolis - SP 
Tel.: 257-7388 e 257-7466 





COMO 
FAZER 



SUA 
ASSINATURA 



A nossa revista nao ser^ distribui'da nas bancas 
Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e premios 
interessanti'ssimos, voce devera fazer uma assinatura; 
pre(;o anual da assinatura e de Cr$ 1 1 .800,00. 
Porem, ate 30 de setembro, manteremos o preco de 
CrS 9 900,00, com direito a uma fita inedita de jogos: 

Sao Paulo (IK) 

Mansao Maluca (16K) 
cujo valor comercial e superior a Cr$ 6.000,00. 



Para tanto, voce devera preenciier corretamente 
o cupom anexo. coloca-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICACOES E MATERIAL DIDATICO LTDA., no 
valor de Cr$ 9,900,00 (oferta valida at6 30 de 
setembro), 



envelope devera ser selado e enderecado h 



MICROMEGA P,M,D, LTDA. 
Cafxa Postal 60081 - CEP 05096 
Sao Paulo - SP 



No verso do cheque escreva; 



"Destina-se ao pagamento de uma assinatura 
(12numeros) da revista MICROHOBBY" 



Quando este cheque for devolvido ao seu Banco 
com nosso endosso, servira de comprovante provisorio 
ate que nosso recibo seja enviado pelo correio. 



O QUE ESTA RESERVADO 
PARAON95: 




OSAPO 



PROGRAMA DO LEITOR: 



HORASIDERAL 



PROGRAMAS DOMES: 



SOMASINTATtCA 

TRANSITO 
CALEIDOSCOPIO 



MUITAS DICAS E 
INFORMAQOES 



SEQAO NOVA: 



OS "OITENTAS", 

PARAO USUARIO DO TK 

ENTENDER TRS 80 

E COMPATfVEIS 

NACIONAIS. 
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r 



1984... voce esta preparado? 



NIVEL 


NiVEL 1 


NiVEL2A 


NIVEL 2B 


NiVEL 3 


NIVEL 4 


CRtAMCAS 


ADULTOS 

E 
ADOLESC 


ADULTOS 
E 

ADOLESC. 


ADOLESC 
JOGOS 


ADULTOS 
E 

ADOLESC 


ADULTOS 

E 
ADOLESC 


lOh 


son 


20 h 


JOn 


iCh 


40 tl 


INICIAgAD 


INICIAgAD 


APnOF. EM 

APLlCAgOES 

ADM 


APUCAQOES 

EM 

JOGOS 


LINGUAGEM 
DE MAOUINA 
ASSEMBLY 280 


APROF. DE 
LINGUAGEM 
DE MAQUIkA 



Nucleo 

"^ei orientcjcao 
ncle estudos 



CORPO DOCENTE: 
PROF FABIO RENDELUCCI 
PROF. FLAVIO ROSSINI 
PROF. PIEHLUIGI PiAZZl 



Av. Brig. Faria Lima, 1.451 - 3," - Cj. 31 
Tel.: 813-4555 - CEP 01451 - Sao Paulo 



1 



Desgravador e rejuvenescedor instantaneo 



defitas K-7 




PARA 
APAGAR 
BASTA PASSAR 
AFITAIDA£ 
VOLTA PELA 
A6ERTURA 




micromega 



Sistema: PASSOU... DESGRAVOU 
GARANTtA DE 5 ANOS I 



3 



arwiniia 



* Desgrava e rejuvenesce em apenas 4 segundos, quaH 
quer fita cassete mdependente de sua dura(?3o, eliminan^ 
do todos OS ruldos e chiados decorrentes de frequentes 
regrav3Q6es. 

* Poupa o desgaste da fita e do gravador. j 

* Poupa tempo e melhora a qualidade do som da fita casse^ 
te na reutliizagao da mesma. 

* Gravando erm cima de ouira gravaqSo, a qualidade da re- 
produgao e consideravelmente prejudicada, alem de criar 
confusSes, principalmente se 3 gravapSo anterior for de 
duragao maiscurta. Desgravando com o TWIN-GO, nada 
disso acontece. 

* TWIN-GO e indispensavel a todos os profissionais e 
amadores, usu^rios de fitas cassete. 



Pedidos por coria 6 

WtOtOMEGA PMD LTDA. 

Colxa Postal 60081 ■ CEP 09096 ■ S&o Paulo. 

anexando Cheque Nominal ou Vole Postal, 
induindo mois despesas de frete no valor 
de Cr$SCX),00, autoriiando o recebimen*o 
daeompro no pratc>de ISdIas. 



5P 




C*rict»ristlefts Tienlcas 

• LInguagem BASIC 
•10 Kbytes de ROM, 

• 16ou 48 Kbytes d9 mem Aria 
HAM, 

• 40 teclas B 160 f undoes, 

• GravagSo de programas em 
fita cassete comum. 

• Input e Output de dados, 

• Video: aparelhos de TV B&P 
ou cotorido, 

• Fun^fles especlais 
HIGH-SPEED. 

• SomOpcional, 
■ joystick, impressora, 

Prego da lanQamento: 
CrS 229.850,00 (16K) 
CrS 329.850,00 (48K) 
(Prego sujeito a alteragao) 



'-:>■ 



^^!^' 



M 

\yO' 



.ue^^i^uit^^^rrc^'"^' 









^|gi5^^-f^ 



''ki^^B^^^iP- 



o't^^cto'^^ 






CO' 



nvli^' 



^'^^^ 



^Jt^^^>^ 
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